分享一个EXCEL VBA+Access数据库+Listview 信息录入系统

weichunniu

感谢楼主分享，我的想法又有了实现的方式了

joelzhang

感谢楼主分享，学习了·····

joelzhang

楼主，帮忙看下，我按照案例改了链接的access数据库信息等，然后就报错【下标越界】，请问这是什么情况呢？？

1. 
   
2. 
   
3. '模糊查询的核心代码。可把需要查询的字段连成一个字符串，用Instr函数去匹配。
   
4. '也可用Like语句 + 通配符* + Or语句实现。用Like的好处是在查询框也可用*通配符
   
5. Private Sub TextBox1_Change()
   
6.     Dim strSearchText As String
   
7.     Dim lstItem As ListItem
   
8.     If rst Is Nothing Then Exit Sub
   
9.     If blnNewItem Then MsgBox "有新增行未保存，不可以查询！", vbCritical: Exit Sub
   
10.     With ListView1
    
11.         .ListItems.Clear
    
12.         If rst.EOF And rst.BOF Then Exit Sub '空数据库
    
13.         rst.movefirst
    
14.         Do While Not rst.EOF
    
15.             strSearchText = rst(13) & "/" & rst(14) & "/" & rst(15) '按零部件号/图纸号/零部件名称其中之一查找
    
16.             If InStr(strSearchText, UCase(TextBox1)) Then
    
17.                 Set lstItem = .ListItems.Add
    
18.                 lstItem.Text = rst(0)
    
19.                 For j = 1 To rst.fields.Count - 1
    
20.                     lstItem.SubItems(j) = rst(j)
    
21.                 Next
    
22.             End If
    
23.             rst.movenext
    
24.         Loop
    
25.     End With
    
26. End Sub
    
27. 
    
28. '窗体初始化。给Listview赋值。更改Listview和InkEdit的窗口程序
    
29. Private Sub UserForm_Initialize()
    
30.     Dim lstItem As ListItem
    
31.     Dim sql As String, arrWidth
    
32.     Dim i As Long, j As Long
    
33.     Set cnn = CreateObject("adodb.connection")
    
34.     Set rst = CreateObject("adodb.recordset")
    
35.     cnn.CursorLocation = 2 '游标位置=服务器
    
36.     cnn.Open "Provider=Microsoft.ACE.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\BOM数据库.mdb"
    
37.     sql = "select * from DBOM"
    
38.     rst.Open sql, cnn, 1, 3, 1
    
39. 
    
40.     With ListView1
    
41.         .Gridlines = True
    
42.         .FullRowSelect = True
    
43.         .LabelEdit = lvwManual
    
44.         .View = lvwReport
    
45.         .SmallIcons = ImageList1
    
46.         .Font.Size = 12 '字号：小四
    
47.         arrWidth = Array(80, 30, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 15, 1, 80, 80, 80, 80, 100, 20, 10, 10, 10, 10, 20, 80, 20, 40, 40, 10, 10, 10, 10, 50, 80, 50)
    
48.         For i = 0 To rst.fields.Count - 1
    
49.             .ColumnHeaders.Add , , rst(i).Name, arrWidth(i)
    
50.         Next
    
51.         Do While Not rst.EOF
    
52.             Set lstItem = .ListItems.Add
    
53.             lstItem.Text = rst(0)
    
54.             For j = 1 To rst.fields.Count - 1
    
55.                 lstItem.SubItems(j) = IIf(IsNull(rst(j)), "", rst(j))
    
56.             Next
    
57.             rst.movenext
    
58.         Loop
    
59.     End With
    
60.    
    
61.     'InkEdit1.MultiLine = False'提示只读属性。只可在设计窗体时设置。
    
62.     'InkEdit1.BackColor = &HFFFFC0
    
63.     'InkEdit1.BorderStyle = rtfNoBorder
    
64.     InkEdit1.Font.Size = ListView1.Font.Size
    
65.     InkEdit1.Width = 0
    
66.     InkEdit1.ZOrder 0 '把InkEdit1移到最上一层，避免被Listview遮住
    
67.    
    
68.     sngPixelPerPoint = Pixel2PointX(1) '只计算一次，节约资源
    
69.     blnFlag = True ''指示InkEdit1_Exit事件是否保存修改。按下Escape键时设为False
    
70.     blnNewItem = False '新增一行标识符。如果新增行未保存或未删除，该标识为TRUE
    
71.     TextBox1.SetFocus
    
72.    
    
73.     strAllowEditCol = "04/05/06/07/08/09/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30/31/32/33/34/35/36" '指定Listview的4~36列可编辑，不指定该参数时则所有列可编辑
    
74.     strRequiredCol = "16/17/18" '设定16-18列必填，不指定该参数时则所有列可不填
    
75.    
    
76.     LvmPreWndProc = GetWindowLong(ListView1.hWnd, GWL_WNDPROC)
    
77.     InkPreWndProc = GetWindowLong(InkEdit1.hWnd, GWL_WNDPROC)
    
78.     SetWindowLong ListView1.hWnd, GWL_WNDPROC, AddressOf WndProc
    
79.     SetWindowLong InkEdit1.hWnd, GWL_WNDPROC, AddressOf WndProc
    
80. End Sub
    
81. 
    
82. '关闭窗体时，还原Listview和InkEdit控件的窗口程序
    
83. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
84.     SetWindowLong ListView1.hWnd, GWL_WNDPROC, LvmPreWndProc
    
85.     SetWindowLong InkEdit1.hWnd, GWL_WNDPROC, InkPreWndProc
    
86. End Sub
    
87. 
    
88. Private Sub ListView1_Click() '使用单击，在编辑大量数据时更优
    
89.     ShowInkEdit
    
90. End Sub
    
91. 
    
92. Private Sub ListView1_DblClick() '双击事件
    
93.     ShowInkEdit
    
94. End Sub
    
95. 
    

复制代码

wls198210100

ivccav 发表于 2018-5-23 10:30
其实不需要使用别人的版本的，自己重新画一个Listview就行了。半分钟的事情而已。

这是我使用的版 ...

自己画一个？？？？用什么画的呀！楼主真是牛掰格拉斯呀，能说说大致过程么？

自渡者

必须的近义词是什么
一定要
顶

jjamxin

谢谢分享！！！！！！！！！！！！

vvw123

这个收藏，说不定哪天用得到。谢谢！

592rmb

好，留下学习了

瑞佳

ivccav 发表于 2018-6-21 10:40
直接在Excel中操作的原帖答复，可做另一种参考：
http://club.excelhome.net/thread-1420382-2-1.html
...

感谢分享，新手就是缺少这种指导

cbxxgwf

感谢分享，学习中。