无法完成延迟准备。
无法预定义语句。
'=' 附近有语法错误。
'''''''---------------目录树
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)
加好友 
发短信
Post By：2016/10/10 10:39:00 [只看该作者]
