| 以文本方式查看主题 - 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=118038) |
| -- 作者：有点蓝 -- 发布时间：2018/4/23 22:48:00 -- 看看生成的条件是什么内容？ msgbox(flt)
|
| -- 作者：有点甜 -- 发布时间：2018/4/24 9:08:00 -- Dim Values() As String = e.Form.Controls("CheckedComboBox选择列").Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\\") Dim flt As String = "1=1" For i As Integer = 0 To strs.Length - 1 \'\'间接获取目录树层级(Level) flt += " And " & Values(i) & "= \'" & strs(i) & "\'" Next If flt > "" Then Tables("订单").Filter = flt End If [此贴子已经被作者于2018/4/25 9:41:34编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/4/25 9:41:00 -- flt += " And " & Values(i) & "= \'" & strs(i)
改成
flt += " And " & Values(i) & "= \'" & strs(i) & "\'" |
| -- 作者：有点甜 -- 发布时间：2018/4/25 17:43:00 -- If flt > "" Then |
| -- 作者：有点甜 -- 发布时间：2018/4/26 11:05:00 -- 1、msgbox(flt) 弹出什么？
2、报什么错？
3、如果自己不会调试，请上传具体foxtable实例测试。 |
| -- 作者：有点甜 -- 发布时间：2018/4/26 16:13:00 -- 以下是引用yifan3429在2018/4/26 16:11:00的发言：
主要是我点击加载全部数据的节点 不会加载全部数据。
Dim Filter As String = ""
msgbox(e.Node.Text)
If e.node.Text = "加载所有数据" Then
msgbox(123)
DataTables(Vars("表名")).LoadFilter = filter
DataTables(Vars("表名")).Load
Else
|