以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关联表子表数据是否加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52319)
--  作者：htlk25
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  作者：Bin
--  发布时间：2014/6/13 10:33:00
--  
dim dr as datarow = datatables("原始名单").find("展会简称=\'" & txt & "\'")
if dr is nothing then
     DataTables("原始名单").AppendLoad("[展会简称] = \'" & txt & "\'")
end if
--  作者：htlk25
--  发布时间：2014/6/13 10:35:00
--  
感谢感谢！！！