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


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

主题：[求助]有关动态加载
帅哥哟，离线，有人找我吗？
ntqhj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：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


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：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


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：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


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

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

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


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

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

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


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：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


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

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

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


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2024/6/29 0:09:00 [显示全部帖子]

SQL数据库，求组合动态加载代码：窗口设置了4个CheckBox控件，目前4个CheckBox控件已可按条件单独执行后台加载，想得到分别选中1个或2个或3个或4个CheckBox控件，得到与之相对应的后台加载，这个代码应该如何做？
其中一个的代码。也请帮看下是否合理:
Dim Filter As String
If e.Sender.Name = "CheckBox1" Then 
    If e.Sender.Checked = True Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "进项piao是否已开 = '未开进项piao'" 
        If Filter > "" Then
            DataTables("开piao费明细表").loadFilter = Filter
            DataTables("开piao费明细表").load
        Else
            DataTables("开piao费明细表").loadFilter = ""
            DataTables("开piao费明细表").load
        End If
    End If 
    If e.Sender.Checked = False Then
        DataTables("开piao费明细表").LoadFilter = "[_identify] is null"
        DataTables("开piao费明细表").Load()
    End If 
End If
[此贴子已经被作者于2024/6/29 0:14:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：2879 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2024/8/3 15:42:00 [显示全部帖子]

表初始不加载记录，在窗口Afterload里设置加载了20条记录，因筛选设置不完善，只有在全部加载表数据时才可完成相关筛选结果，想设个按钮可实现加载全部数据代码是怎样的啊？至于筛选完善再慢慢做。

 回到顶部
总数 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.04688 秒, 5 次数据查询