如何从xls修改为mdb取值

布山客

Renco 发表于 2016-10-9 09:17
改的是一个查询书籍的示例。希望你看得明白

首先感谢老师的指点，出现点错误
Private Sub TextBox1_Enter()
Set TreeView1.DropHighlight = TreeView1.SelectedItem '保持高亮关键
Set ListView1.DropHighlight = ListView1.SelectedItem '保持高亮关键
End Sub
要求对象错误

布山客

Renco 发表于 2016-10-9 09:17
改的是一个查询书籍的示例。希望你看得明白

感谢老师的帮助
能否修改一下上面的代码

Renco

呵。。。代码没有问题，只是我用的是64位系统改的，所以用了64位的控件，你的Treeview要你自已重新建一下，你试试看，那里引用是否也出问题了。处理好了，就可以了

布山客

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(0).Value
Itm.SubItems(1) = rs.Fields(1).Value
Itm.SubItems(2) = rs.Fields(2).Value
Itm.SubItems(3) = rs.Fields(3).Value
End If
Else
Set Itm = ListView1.ListItems.Add()
Itm.Text = rs.Fields(0).Value
Itm.SubItems(1) = rs.Fields(1).Value
Itm.SubItems(2) = rs.Fields(2).Value
Itm.SubItems(3) = rs.Fields(3).Value
End If
rs.MoveNext
Next
rs.MoveFirst
End Sub