Private Sub UserForm_Initialize() Dim itm Dim DBpath As String Dim lngI As Long With ListView1 .ColumnHeaders.Clear .ListItems.Clear .ColumnHeaders.Add 1, , "类别", .Width / 5 .ColumnHeaders.Add 2, , "代号", .Width / 5 .ColumnHeaders.Add 3, , "总进货量", .Width / 5 .ColumnHeaders.Add 4, , "总出库数量", .Width / 5 .ColumnHeaders.Add 5, , "库存量", .Width / 5 .View = lvwReport .Gridlines = True DBpath = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" & "" If CNN.State = 1 Then CNN.Close CNN.Open DBpath strSQl = "Select * from 库存量" RST.Open strSQl, CNN, adOpenKeyset, adLockOptimistic For lngI = 1 To RST.RecordCount Set itm = .ListItems.Add() itm.Text = RST.Fields("类别") itm.SubItems(1) = RST.Fields("代号") itm.SubItems(2) = RST.Fields("总进货量") itm.SubItems(3) = RST.Fields("总出库数量") itm.SubItems(4) = RST.Fields("库存量") RST.MoveNext Next End With RST.Close End Sub
BF6kfqSB.rar
(35.21 KB, 下载次数: 8)
|