窗体求助

iamxxb

各位路过的高手，麻烦帮忙弄个窗体，我自己弄不好，想在窗体里放一个listview，但是提示是“未知的错误”，需求再第三个工作表了，在此万分感谢！

一指禅62

1. Option Explicit
   
2. Dim arr
   
3. 
   
4. Private Sub cmd查询_Click()
   
5.     Dim i&, j%, Item As MSComctlLib.ListItem
   
6.     ListView1.ListItems.Clear
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 3) Like "*" & TextBox1.Text & "*" Then
   
9.             Set Item = ListView1.ListItems.Add(, , arr(i, 2))
   
10.             For j = 3 To 9
    
11.                 Item.SubItems(j - 2) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     If ListView1.ListItems.Count > 0 Then
    
16.         ListView1.SetFocus
    
17.         ListView1.SelectedItem.Selected = True
    
18.     End If
    
19. End Sub
    
20. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
21.     If KeyCode = 13 Then cmd查询_Click
    
22. End Sub
    
23. 
    
24. 
    
25. Private Sub ListView1_DblClick()
    
26.     Dim R&, Item As MSComctlLib.ListItem
    
27.     R = ActiveCell.Row
    
28.     Set Item = ListView1.SelectedItem
    
29.     Cells(R, 10) = Item.Text
    
30.     Cells(R, 11) = Item.SubItems(1)
    
31.     Cells(R, 12) = Item.SubItems(2)
    
32.     Cells(R, 13) = Item.SubItems(3)
    
33.     Cells(R, 14) = Item.SubItems(4)
    
34.     Cells(R, 15) = Item.SubItems(5)
    
35.     Cells(R, 16) = Item.SubItems(6)
    
36.     Cells(R, 18) = Item.SubItems(7)
    
37.     Cells(R, 19).FormulaR1C1 = "=R" & R & "C[-2]*R" & R & "C[-1]"
    
38.     Me.Hide
    
39. End Sub
    
40. Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
    
41.     If KeyCode = 13 Then ListView1_DblClick
    
42. End Sub
    
43. 
    
44. 
    
45. 
    
46. Private Sub UserForm_Activate()
    
47.     If ListView1.ListItems.Count > 0 Then
    
48.         ListView1.SetFocus
    
49.         ListView1.SelectedItem.Selected = True
    
50.     End If
    
51. End Sub
    
52. Private Sub UserForm_Initialize()
    
53.     arr = Sheet3.Range("A1").CurrentRegion
    
54.     With ListView1
    
55.         .FullRowSelect = True
    
56.         .Gridlines = True
    
57.         .LabelEdit = lvwManual
    
58.         .MultiSelect = True
    
59.         .View = lvwReport
    
60.         Set .SmallIcons = ImageList1
    
61.     End With
    
62.     With ListView1.ColumnHeaders
    
63.         .Add , , "物品代码", 0
    
64.         .Add , , "物品名称", 90
    
65.         .Add , , "规格型号", 60
    
66.         .Add , , "类别", 60
    
67.         .Add , , "仓位", 60
    
68.         .Add , , "单位", 60
    
69.         .Add , , "类型", 60
    
70.         .Add , , "单价", 60
    
71.     End With
    
72.     Sheet1.Select
    
73.     cmd查询_Click
    
74. End Sub

复制代码

一指禅62

仓库库存台账.zip (323.92 KB, 下载次数: 14)

2018-10-18 15:43 上传

点击文件名下载附件

iamxxb

一指禅62 发表于 2018-10-18 15:43

不知道怎么说了，感谢感谢还是感谢！

一指禅62

iamxxb 发表于 2018-10-18 17:06
不知道怎么说了，感谢感谢还是感谢！

共同学习。若要学习ListView 可参见  

http://club.excelhome.net/thread-703775-1-1.html

iamxxb

一指禅62 发表于 2018-10-18 21:32
共同学习。若要学习ListView 可参见  

http://club.excelhome.net/thread-703775-1-1.html

好的，再次感谢！