点击全市，出现窗口----列名“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
加好友 
发短信
Post By：2014/12/1 13:15:00 [显示全部帖子]
