以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教下以下代码有什么问题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44161)

--  作者:zouxinhao
--  发布时间:2013/12/24 14:37:00
--  [求助]请教下以下代码有什么问题?
代码如下:
Dim flt As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
 For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Checked Then
             If nd.Level = 0 Then 
                flt = flt & " and [第一列] = \'" & nd.Text & "\'"
            Else
                flt = flt & " and [第二列] = \'" & nd.ParentNode.Text & "\' And [第一列] = \'" & nd.Text & "\'"
            End If
        End If
 Next
Tables("表A").Filter="[第三列]" IsNot Nothing  & flt 
请问以上代码那里出了问题啊?


--  作者:Bin
--  发布时间:2013/12/24 14:40:00
--  
Tables("表A").Filter="[第三列]  Is not null " & flt 

你把表达式和代码的语法搞混了

--  作者:zouxinhao
--  发布时间:2013/12/24 14:45:00
--  
问题解决了,谢谢了!