Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有关动态加载


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

主题：[求助]有关动态加载
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/30 11:13:00 [显示全部帖子]

动态加载子表按钮怎么做的？加上按逻辑列的条件不就行了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/30 11:44:00 [显示全部帖子]

For Each dr As DataRow In DataTables("接单明细表").DataRows
改为
For Each dr As DataRow In DataTables("接单明细表").select("xx逻辑列=true")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/30 13:39:00 [显示全部帖子]

清空数据即可，没必要卸载

DataTables("承运人明细表").LoadFilter = "[_identify] is null"
DataTables("承运人明细表").Load()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/5 11:35:00 [显示全部帖子]

改为SqlServer数据库，然后注意优化：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=158943&replyID=&skin=1
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/5 13:31:00 [显示全部帖子]

access没有什么优化的余地的。并发5个用户左右还勉强可以，使用的人越多就越慢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/5 14:31:00 [显示全部帖子]

使用同样的代码，那就不是程序的问题了。只能是网络的原因。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/5 14:58:00 [显示全部帖子]

没有关系

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/29 8:22:00 [显示全部帖子]

参考这种方式生成查询条件：http://www.foxtable.com/webhelp/topics/1058.htm

Dim Filter As String
If e.Form.Controls("CheckBox1").Checked = True 
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter &  "进项piao是否已开 = '未开进项piao'" 
End If
If e.Form.Controls("CheckBox2").Checked = True 
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter &  "某某列 = '某某值'" 
End If
……
            DataTables("开piao费明细表").loadFilter = Filter
            DataTables("开piao费明细表").load
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/3 16:28:00 [显示全部帖子]

加载全部把条件设置为空即可

            DataTables("开piao费明细表").loadFilter = ""
            DataTables("开piao费明细表").load
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询