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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表子表数据是否加载

共有2737人关注过本帖树形打印复制链接主题：关联表子表数据是否加载

htlk25

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

加好友

发短信

等级：小狐帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00

关联表子表数据是否加载 发帖心情

Post By：2014/6/13 10:25:00 [只看该作者]

您好，

因为我某一子表的数据量特别大，所以打开系统时是没有加载到TABLE中的，

我想实现在选中关联表的父表的某一行时，先检查对应子表的数据是否已经加载到table中，

如果已经加载，就不重新加载，

如果没有加载，就用AppendLoad追载，

我写的代码好像不好用！
请问是可以给出一个合理的代码，谢谢！

Dim txt As String = Tables("展会信息").Current("展会简称")

With Tables("展会信息.原始名单")

Dim r As Integer

r = .Find(" & txt & ", .RowSel + 1, "展会简称", False, False, True)

If r = - 1 Then '如果没找到符合条件的行

DataTables("原始名单").AppendLoad("[展会简称] = '" & txt & "'")

Else

End If

End With

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/13 10:31:00 [只看该作者]

Dim txt As String = Tables("展会信息").Current("展会简称")
Dim fdr As DataRow = DataTables("原始名单").Find("展会简称 = '" & txt & "'")
If fdr IsNot Nothing Then
DataTables("原始名单").AppendLoad("[展会简称] = '" & txt & "'")
End If