关于动态加载表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于动态加载表的问题

共有303人关注过本帖树形打印复制链接主题：关于动态加载表的问题

scofields

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：562 积分：4521 威望：0 精华：0 注册：2016/4/17 20:05:00

关于动态加载表的问题 发帖心情

Post By：2024/5/29 0:36:00 [显示全部帖子]

这个动态加载问题，经我检测会检测加载顺序，所以进行了改良，有没更简便的方式，我有个环节有20个表，照这样的写法，简直会累死啊。求版主给个简便的方式

Select Case e.Link.Name

Case "资金入账"

If DataTables.Contains("T_资金表") = False AndAlso DataTables.Contains("T_客户表") = False AndAlso DataTables.Contains("T_付款方式") = False Then

DataTables.Load("T_资金表|T_客户表|T_付款方式")

ElseIf DataTables.Contains("T_资金表") = False AndAlso DataTables.Contains("T_付款方式") = false Then

DataTables.Load("T_资金表|T_付款方式")

ElseIf DataTables.Contains("T_资金表") = False

DataTables.Load("T_资金表")

ElseIf DataTables.Contains("T_付款方式") = False

DataTables.Load("T_付款方式")

End If

MainTable = Tables("T_资金表")

Forms("资金入账").Open()

scofields

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：562 积分：4521 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2024/5/29 12:57:00 [显示全部帖子]

感谢老师给予指导。按照你这个格式，我套用卸载，发现有问题，其中订单表与订单明细表是关联表，如何改进？

Select Case e.Page.Name

Case "系统刷新"

Select Case e.Link.Name

Case "系统刷新"

Dim sps3() As Char = {"|"}

Dim Names() As String = Value1.Split(sps3)

For Each name As String In Names

If DataTables.Contains(name) = True Then

DataTables.UnLoad(name)

End If

Forms("主界面窗口").open()

MainTable=Tables("Maintables")

scofields

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：562 积分：4521 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2024/5/29 14:22:00 [显示全部帖子]

嗯！感谢楼主指点，我还是选择既然加载了就不要卸载了吧

scofields

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：562 积分：4521 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2024/5/29 14:22:00 [显示全部帖子]

这个没用，你看我上面同时主表、子表都卸载(并且是在两个表同时加载的情况下）

下一主题 >> << 上一主题

主题：关于动态加载表的问题