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


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

主题:[求助]有关动态加载

帅哥哟,离线,有人找我吗?
ntqhj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
[求助]有关动态加载  发帖心情 Post By:2023/11/30 11:04:00 [显示全部帖子]

窗口父表+子表,做了2个按钮,功能可实现,动态加载主表按钮(按关键字模糊查找加载的)、动态加载子表按钮(可实现根据主表同步加载子表记录)。当主表按关键字条件动态加载较多记录时,动态加载子表子表记录的时间比较长,要3分钟左右。想实现:选中主表某几条记录时(想着是用逻辑列选择),动态加载主表选中记录的关联子表,该如何实现啊?

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/11/30 11:35:00 [显示全部帖子]

套用帮助里的同步加载子表的代码,逻辑列的条件该如何加?
Dim ids As String
For Each dr As DataRow In DataTables("接单明细表").DataRows
    ids = ids & ",'" & dr("内部编号") & "'"
Next
ids = ids.Trim(",")
DataTables("承运人明细表").LoadFilter = "内部编号 In (" & ids & ")"
DataTables("承运人明细表").Load()

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/11/30 12:02:00 [显示全部帖子]

可以了,谢谢老师!

[此贴子已经被作者于2023/11/30 12:13:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/11/30 13:09:00 [显示全部帖子]

若:xx逻辑列=False,卸载该子表,代码如何写?打开应用加载了表结构



[此贴子已经被作者于2023/11/30 13:16:34编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/12/5 11:24:00 [显示全部帖子]

功能已实现。但在局域网中使用时,按关键字后台加载主表及子表速度很慢,尤其是加载子表速度更慢,在局域网中提高加载速度该如何做啊!

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/12/5 12:26:00 [显示全部帖子]

我是绝对菜鸟,改SqlServer数据库,知识储备及软硬件条件远达不到的。在现有的access数据库基础上有变通的解决方法吗? 目前我的主表数据才4000多条,子表数据才10000多条,目前全部加载就是开始进入应用慢些,改后台加载进入是快了,但是按条件加载就慢的不行,总觉得哪里不对呢。赐教!

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/12/5 14:28:00 [显示全部帖子]

并发只有2个用户,服务器端兼一个客户端,远端一个客户端,主要是远端的速度有点慢。用下面的代码:远端客户端的速度与服务器端客户端速度相差还比较大,同步加载子表就更慢,感觉不应该这样的,毕竟目前记录不多呢

dim dr as datarow = datatables("xx表").sqlfind("第一列 like '%" & e.form.controls("TextBox1").text & "%'","[日期] desc")
if dr isnot nothing then
e.form.controls("TextBox2").text = dr("第一列")
endif

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:438 积分:2664 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/12/5 14:56:00 [显示全部帖子]

与关键字模糊查找有关系吗?

 回到顶部