Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树节点代码


  共有2267人关注过本帖树形打印复制链接

主题：目录树节点代码
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/25 9:41:00 [显示全部帖子]

flt += " And " & Values(i) & "= '" & strs(i)

 

改成

 

flt += " And " & Values(i) & "= '" & strs(i) & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/25 17:43:00 [显示全部帖子]

If flt > "" Then
    DataTables(Vars("表名")).LoadFilter = flt
    DataTables(Vars("表名")).Load
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/26 11:05:00 [显示全部帖子]

1、msgbox(flt) 弹出什么？

 

2、报什么错？

 

3、如果自己不会调试，请上传具体foxtable实例测试。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询