- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 以前有效的代码现在无效，目录树代码报错。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60791)
-- 发布时间：2014/12/1 13:15:00
-- 以前有效的代码现在无效，目录树代码报错。
点击全市，出现窗口----列名“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
-- 发布时间：2014/12/1 13:17:00
--
第14列是审核列，逻辑型。
-- 发布时间：2014/12/1 13:30:00
--
是不是sql数据源？如果是sql数据源，要写成 第14列 ＝ 1
-- 发布时间：2014/12/1 14:18:00
--
3楼是答案。
以后说问题的时候，请说明报什么错。
-- 发布时间：2014/12/1 18:09:00
--
谢谢！的确是变成SQL数据源了。但是也没报错，只是说列名“true"无效。
-- 发布时间：2014/12/1 19:10:00
--
将 true 改成 1
将 false 改成 0
-- 发布时间：2014/12/1 21:09:00
--
谢谢甜大神，原来用sql语句和内部数据源的语句不一样。小弟太菜了。