点击全市,出现窗口----列名“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
