[已解决]经"戏子"老师的帮忙,问题已解决!!

xz005

sUYw8JOE.rar (30.06 KB, 下载次数: 7)

2008-2-12 02:54 上传

点击文件名下载附件
再次向"烟雨江南"老师求助

 

再此,先向各位说声新年好! 感谢老师们的热心帮助! 祝各位老师们及兄弟们在新的一年"合家幸福" "诸事合想"

 问题如下:用什么代码才能调用ACCESS中的"入库的进货量-出库数量=库存量""(这三个数值)调到ListView控件中 

恳请老师们帮帮忙!

 S:俺知道"烟雨江南"老师是这方面的高手,特来麻烦了![em04][em04]

 

在此:要再次感谢"戏子"老师![em17]

 

[此贴子已经被作者于2008-2-15 16:59:10编辑过]

最佳答案

月排行榜 / 总排行榜

戏子

2008-2-15 14:19

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)

2008-2-15 14:18 上传

点击文件名下载附件
再次向"烟雨江南"老师求助

跳转到最佳答案楼层

兰色幻想

看看

兰色幻想

只是一个文件，不知道问题是什么？

xz005

QUOTE:

 

[em04][em04]

[此贴子已经被作者于2008-2-12 2:47:05编辑过]

faliming7

路过

戏子

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)

2008-2-15 14:18 上传

点击文件名下载附件
再次向"烟雨江南"老师求助

xz005

 

太感谢"戏子"老师的帮忙了![em44]

PS:"戏子"老师真的[em17][em17]

[此贴子已经被作者于2008-2-15 16:55:04编辑过]