以前有效的代码现在无效，目录树代码报错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

点击全市，出现窗口----列名“true"无效。

双击代码如下。以前运行得非常好，不知道为何今天点击目录树就报错。求大神指点。

Select Case e.Node.Level

Case 0

Forms("主界面").close

If e.Node.Text = "全市" Then

DataTables("表A").LoadFilter = "第14列 = true"

Else

DataTables("表A").LoadFilter = "第1列 = '" & e.Node.Text & "' and 第14列 = true"

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列 = true"

End If

End Select

DataTables("表A").Load

此主题相关图片如下：5.jpg

主题：以前有效的代码现在无效，目录树代码报错。