求高手帮助 模糊查询（已经解决）

lapchiu

昨天在家里下载了 改进模糊查询_listview0406.rar，每次在我用方向键定位到我要的那一项后，在选择的时候要用鼠标点双击，很费时间啊，能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择，谢谢。

[ 本帖最后由 lapchiu 于 2010-7-26 08:49 编辑 ]

zhangjimfu

没有试过，期待高手解决！

gfs57

先行下载为妙 ! 就不知道能否啃得动

lapchiu

有没有高手研究出来 了

FXSHENG

原帖由 lapchiu 于 2010-7-25 21:49 发表
昨天在家里下载了 改进模糊查询_listview0406.rar，每次在我用方向键定位到我要的那一项后，在选择的时候要用鼠标点双击，很费时间啊，能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择，谢谢。

也曾有此想法,并查得一句代码:
Application.SendKeys "%TMS%T%V{ENTER}"
不知道按在哪里,反复测试没成功,终放弃.
感谢楼主重提起,请路过的高手支招!

lapchiu

还是谢谢fxsheng，哪位大侠相助啊。。。。

蓝桥玄霜

1. Private Sub ListView1_KeyPress(KeyAscii As Integer)
   
2. If KeyAscii = 13 Then
   
3.     With ActiveSheet
   
4.         .Cells(Selection.Row, Selection.Column).Offset(0, 0) = ListView1.SelectedItem.Text
   
5.         .Cells(Selection.Row, Selection.Column).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)
   
6.         .Cells(Selection.Row, Selection.Column).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)
   
7.         .Cells(Selection.Row, Selection.Column).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)
   
8.         End With
   
9.         Unload Me
   
10. End If
    
11. End Sub
    

复制代码

lapchiu

谢谢楼上的，这里高手真多。已经解决了，再次谢谢蓝桥

FXSHENG

蓝老师出手相助，搞定！
感谢！

蓝桥玄霜

1. Private Sub UserForm_Initialize()
   
2. Dim Arr, i&
   
3. With ListView1.ColumnHeaders
   
4.     .Add , , "编码"
   
5.     .Add , , "物品名称", Width / 4
   
6.     .Add , , "规格型号", Width / 8, lvwColumnCenter
   
7.     .Add , , "单位", Width / 8, lvwColumnCenter
   
8.     .Add , , "设定单价", Width / 8
   
9.     .Add , , "二科目", Width / 8
   
10.     .Add , , "三科目", Width / 8
    
11.     .Add , , "供货商", Width / 8
    
12. End With
    
13. ListView1.View = lvwReport
    
14. ListView1.Sorted = True
    
15. ListView1.SortKey = 0
    
16. ListView1.Gridlines = True
    
17. ListView1.FullRowSelect = True
    
18. Label2.Caption = ""
    
19. Label3.Caption = ""
    
20. Arr = Sheet1.[a1].CurrentRegion
    
21. With Sheet1
    
22.     For i = 2 To UBound(Arr)
    
23.         Set ITM = ListView1.ListItems.Add()
    
24.         ITM.Text = Arr(i, 1)
    
25.         ITM.SubItems(1) = Arr(i, 2)
    
26.         ITM.SubItems(2) = Arr(i, 3)
    
27.         ITM.SubItems(3) = Arr(i, 4)
    
28.         ITM.SubItems(4) = Format(Arr(i, 5), "#,##0.00")
    
29.         ITM.SubItems(5) = Arr(i, 6)
    
30.         ITM.SubItems(6) = Arr(i, 7)
    
31.         ITM.SubItems(7) = Arr(i, 8)
    
32.     Next i
    
33. End With
    
34. Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
    
35. TextBox1.SetFocus
    
36. End Sub

复制代码