- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求专家帮我看看代码错在哪儿 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79582)
-- 发布时间：2016/1/5 13:31:00
-- 求专家帮我看看代码错在哪儿
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
-- 发布时间：2016/1/5 13:40:00
--
经过对比，没什么区别，注意字段，右边的是你运行很好的代码
此主题相关图片如下：qq图片20160105133950.png
[此贴子已经被作者于2016/1/5 13:41:28编辑过]
-- 发布时间：2016/1/5 14:13:00
--
谢谢！经过检查发现是列数写错了