以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  无法完成延迟准备。'=' 附近有语法错误。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91403)

--  作者：gryy --  发布时间：2016/10/10 10:39:00 --  无法完成延迟准备。'=' 附近有语法错误。 无法完成延迟准备。 无法预定义语句。 \'=\' 附近有语法错误。 \'\'\'\'\'\'\'---------------目录树 Dim Value()As String Dim Filter As String Value = e.Node.FullPath.Split("\\") If e.Node.Text <> "显示所有行" Then     Select Case e.Node.Level         Case 0                         Filter ="产品类型 = \'" & trim(Value(0)) & "\'"         Case 1                         Filter ="产品类型 = \'" & trim(Value(0)) & "\'and  产品名称 = \'" & trim(Value(1)) & "\'"         Case 2             Filter ="产品类型 = \'" & trim(Value(0)) & "\'and  产品名称 = \'" & trim(Value(1))& "\' and 包装规格 = \'" & trim(Value(2)) & "\'"     End Select    End If \'\'\'\'\'\'\'---------------后台加载数据 Tables("产品信息_Table1").Fill("Select * F rom {产品信息}" & filter,"data",False)

--  作者：有点蓝 --  发布时间：2016/10/10 11:37:00 --   Tables("产品信息_Table1").Fill("Select * F rom {产品信息} where " & filter,"data",False)