以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73158)
--  作者：jygyyl
--  发布时间：2015/8/13 14:26:00
--  [求助]代码报错
.NET Framework 版本：2.0.50727.8662
Foxtable 版本：2014.11.11.1
错误所在事件：加载[Zsyspb]失败!
详细错误信息：
列名 \'嘉北社区\' 无效。

代码如下：求老师指点！谢谢！
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(JYG607) = \'" & Value(0) & "\'"
    Case 1
        Filter ="Year(JYG607) = \'" & Value(0) & "\' And Month(JYG607) = " & Value(1)
    Case 2
        Filter ="Year(JYG607) = \'" & Value(0) & "\' And Month(JYG607) = " & Value(1) & " And GS607 =  "& Value(2)
End Select
DataTables("Zsyspb").LoadFilter = Filter
DataTables("Zsyspb").Load()
--  作者：大红袍
--  发布时间：2015/8/13 14:28:00
--  

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(JYG607) = \'" & Value(0) & "\'"
    Case 1
        Filter ="Year(JYG607) = \'" & Value(0) & "\' And Month(JYG607) = \'" & Value(1) & "\'"
    Case 2
        Filter ="Year(JYG607) = \'" & Value(0) & "\' And Month(JYG607) = \'" & Value(1) & "\'  And GS607 =  \'" & Value(2) & "\'"
End Select
DataTables("Zsyspb").LoadFilter = Filter
DataTables("Zsyspb").Load()

[此贴子已经被作者于2015/8/13 14:29:18编辑过]