此主题相关图片如下：b6b73558d5fd34148d9d69f823fb1f1.jpg
'加载目录树
NodeMouseClick事件代码
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Form.Controls("RadioButton1").Checked = True Then
trv.BuildTree("公司", "行业分类","","行业分类")
trv.Nodes.Insert("显示所有行",0)
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[行业分类] = '" & dr("行业分类") & "'"
End Select
Tables("公司_Table1").Filter = Filter
End If
ElseIf e.Form.Controls("RadioButton2").Checked = True Then
trv.BuildTree("公司", "省|市","","省")
trv.Nodes.Insert("显示所有行",0)
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[省] = '" & dr("省") & "'"
Case 1
Filter = "[省] = '" & dr("省") & "' And [市] = '" & dr("市") & "'"
End Select
Tables("公司_Table1").Filter = Filter
End If
End If
筛选是没有问题，“行业分类”为目录时会光标跳到下一行，“省|市”为目录时光标会跳到别处，（如果双击确没有问题），是什么原因？
加好友 
发短信
Post By：2020/6/9 17:12:00 [显示全部帖子]
