Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口表加载


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

主题：窗口表加载
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

方法一：用筛选

 

Tables("水运跟踪_Table1").filter = Filter

 

方法二：如果用加载，这种情况，只能用sqlTable表

 

http://www.foxtable.com/webhelp/scr/1907.htm

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用jamhuton在2018/8/8 14:34:00的发言：
这样加载后，目录树需要做怎么样的修改呢？

比如目录树中涉及的表名应该如何修改？

 

你目录树是怎么做的？写了什么代码？

 

你用哪种方法？做个例子发上来。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

afterLoad事件代码不用改。点击目录树节点的事件你想分别筛选？

 

或者说明你需要的结果是什么？现在的结果有什么差距？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如，细节自己调整

 

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[年份] = '" & dr("年份") & "'"
        Case 1
            Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
    End Select
End If
Tables("水运跟踪_Table1").Filter = Filter & " and 业务类型='天津水运'"
Tables("水运跟踪_Table2").Filter = Filter & " and 业务类型='荆州水运''"

[此贴子已经被作者于2018/8/8 15:43:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用jamhuton在2018/8/10 9:15:00的发言：

再请教，如果我不用副本表，代码该如何修改？


 

改成加载

 

http://www.foxtable.com/webhelp/scr/1928.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用jamhuton在2018/8/10 9:36:00的发言：

 
显示不存在名称为“天津水运_table1”的datatable

用窗口表名称还是用表名？
[此贴子已经被作者于2018/8/10 9:58:19编辑过]
 
Tables("天津水运_Table1").DataTable.loadFilter =  "业务类型 ='天津水运'"
Tables("天津水运_Table1").DataTable.load()
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不用副本表，那你用的是什么表？主表？

 

Tables("主表名").Filter = Filter & " and 业务类型='天津水运'"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改成

 

Tables("国内物流").Filter =  "业务类型 ='天津水运'"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用jamhuton在2018/8/10 12:02:00的发言：
甜老师这样改后弹窗确实没有了，不过目录树也不起作用了

 

贴出目录树代码。目录树代码也要改成 Tables("国内物流").Filter


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim Filter As String = "1=1"
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[年份] = '" & dr("年份") & "'"
        Case 1
            Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
    End Select
End If
Tables("国内物流").Filter =  filter & " and 业务类型 ='天津水运'"
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 5 次数据查询