- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]动态加载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46445)
-- 发布时间：2014/2/23 21:43:00
-- [求助]动态加载
打开项目，初始加载，不管父子孙表都是不加载任数据，然后父表与子表同步加载（按帮助所说），但不知孙表如何设置，做到孙表初始加载任数据，并与父表同步？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.zip |
-- 发布时间：2014/2/23 21:48:00
--
打开项目，初始加载，不管父子孙表都是不加载任数据，然后父表与子表同步加载（按帮助所说），但不知孙表如何设置，做到孙表初始时加载不加任何数据，并与父表同步加载？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目6.zip |
-- 发布时间：2014/2/23 22:42:00
--
你在子表的afterload里写入代码，就能同步加载孙表；同理孙孙表也是这样。
If DataTables("表B").DataRows.Count = 0 Then \'如果订单表没有数据
DataTables("表A").LoadFilter = "表A编号 Is Null" \'不加载订单明细
Else
Dim ids As String
For Each dr As DataRow In DataTables("表B").DataRows
ids = ids & ",\'" & dr("表B编号") & "\'"
Next
ids= ids.Trim(",")
DataTables("表C").LoadFilter = "表B编号 In (" & ids & ")"
End If
DataTables("表C").Load()