Select Case e.Node.Level
Case 0
Forms("主界面").close
If e.Node.Text = "全市" Then
DataTables("表C").LoadFilter = "第十六列 = 1"
Else
DataTables("表C").LoadFilter = "第二列 = '" & e.Node.Text & "' and 第十六列 = 1"
End If
Case 1
Forms("主界面").close
Dim ary() As String = e.Node.FullPath.Split("\")
If ary(0) = "全市" Then
DataTables("表C").LoadFilter = "第一列 = '" & ary(1) & "'"
Else
DataTables("表C").LoadFilter = "第二列 = '" & ary(0) & "' and 第一列 = '" & ary(1) & "'"' and 第十六列 = 1"
End If
End Select
DataTables("表C").Load
MainTable = Tables("主界面")
If Forms("专合社基础资料").opened Then
Forms("专合社基础资料").close
End If
If Forms("财政支持主体明细").opened Then
Forms("财政支持主体明细").close
End If
If Forms("主体检查验收").opened Then
Forms("主体检查验收").close
End If
If Forms("主界面").opened Then
Forms("主界面").close
End If
Forms("家庭农场基础资料").open
请专家帮我看看代码错在哪儿了。点击全市有效，点击全市下面的分类无效，点击例如“顺庆区”以及下级分类也无效
这个是分叉树双击的代码，意思如下，假设我点击“全市”就显示全市所有类别的农场，点击全市下面的”水产养殖“就只显示全市水产养殖的农场，而点击顺庆区就显示顺庆区所有类别农场，点击顺庆区下面的水产养殖就只显示顺庆区的水产养殖的农场。。
下面是另一个分叉树的代码，这个就运行的很好。
Select Case e.Node.Level
Case 0
Forms("主界面").close
If e.Node.Text = "全市" Then
DataTables("表A").LoadFilter = "第14列 = 1"
Else
DataTables("表A").LoadFilter = "第1列 = '" & e.Node.Text & "' and 第14列 = 1"
End If
Case 1
Forms("主界面").close
Dim ary() As String = e.Node.FullPath.Split("\")
If ary(0) = "全市" Then
DataTables("表A").LoadFilter = "第2列 = '" & ary(1) & "'"
Else
DataTables("表A").LoadFilter = "第1列 = '" & ary(0) & "' and 第2列 = '" & ary(1) & "'"' and 第14列 = 1"
End If
End Select
DataTables("表A").Load
MainTable = Tables("主界面")
If Forms("家庭农场基础资料").opened Then
Forms("家庭农场基础资料").close
End If
If Forms("财政支持主体明细").opened Then
Forms("财政支持主体明细").close
End If
If Forms("主体检查验收").opened Then
Forms("主体检查验收").close
End If
If Forms("主界面").opened Then
Forms("主界面").close
End If
Forms("专合社基础资料").open
加好友 
发短信
Post By：2016/1/5 13:31:00 [只看该作者]
