如何从xls修改为mdb取值

布山客 · 发表于 2016-10-7 22:59

学习中，在论坛里找到的TreeView 和 ListView 想改从ACCESS中取值的代码。

布山客 · 发表于 2016-10-8 17:49

谁能帮帮忙，现如鲠在喉

zhaogang1960 · 发表于 2016-10-8 20:33

试试看

改重数据库取值怎么改access.rar (34.21 KB, 下载次数: 27)

布山客 · 发表于 2016-10-8 21:58

zhaogang1960 发表于 2016-10-8 20:33
试试看

向老师致敬！！

布山客 · 发表于 2016-10-8 22:53

zhaogang1960 发表于 2016-10-8 20:33
试试看

如何大类前面加ID，数量后面还有字段，但是我只要前面显示的结果，该如何修改代码，老师？

布山客 · 发表于 2016-10-8 22:56

见数据库，窗口显示如之前

zhaogang1960 · 发表于 2016-10-8 23:20

布山客发表于 2016-10-8 22:53
如何大类前面加ID，数量后面还有字段，但是我只要前面显示的结果，该如何修改代码，老师？

我对TreeView 没有研究，建议重新发帖求助，最好到ExcelVBA程序开发板块求助

布山客 · 发表于 2016-10-8 23:59

非常感谢老师的关注

布山客 · 发表于 2016-10-9 00:18

zhaogang1960 发表于 2016-10-8 23:20
我对TreeView 没有研究，建议重新发帖求助，最好到ExcelVBA程序开发板块求助

就这点代码不知如何修改
Private Sub TreeView1_Click()
Dim Itm As ListItem
'arr = Sheet1.Range("a1").CurrentRegion
jcm = TreeView1.SelectedItem.Key
jc = Right(jcm, 1) '根据级次来判断应找哪一列
jcm = Left(jcm, Len(jcm) - 1)
ListView1.ListItems.Clear
'For i = 2 To UBound(arr)
'If jc <> "0" Then
'If arr(i, jc) = jcm Then
'Set Itm = ListView1.ListItems.Add()
'Itm.Text = Sheet1.Cells(i, 1)
'Itm.SubItems(1) = Sheet1.Cells(i, 2)
'Itm.SubItems(2) = Sheet1.Cells(i, 3)
'Itm.SubItems(3) = Sheet1.Cells(i, 4)
'End If
'Else
'Set Itm = ListView1.ListItems.Add()
'Itm.Text = Sheet1.Cells(i, 1)
'Itm.SubItems(1) = Sheet1.Cells(i, 2)
'Itm.SubItems(2) = Sheet1.Cells(i, 3)
'Itm.SubItems(3) = Sheet1.Cells(i, 4)
'End If
'Next
For i = 1 To rs.RecordCount
If jc <> "0" Then
'If arr(i, jc) = jcm Then
If rs.Fields(jc - 1).Value = jcm Then
Set Itm = ListView1.ListItems.Add()
Itm.Text = rs.Fields(1).Value
Itm.SubItems(1) = rs.Fields(2).Value
Itm.SubItems(2) = rs.Fields(3).Value
Itm.SubItems(3) = rs.Fields(4).Value
End If
Else
Set Itm = ListView1.ListItems.Add()
Itm.Text = rs.Fields(1).Value
Itm.SubItems(1) = rs.Fields(2).Value
Itm.SubItems(2) = rs.Fields(3).Value
Itm.SubItems(3) = rs.Fields(4).Value
End If
rs.MoveNext
Next
rs.MoveFirst
End Sub

Renco · 发表于 2016-10-9 09:17

改的是一个查询书籍的示例。希望你看得明白

		自动登录	找回密码
密码			免费注册

[求助] 如何从xls修改为mdb取值