| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 父子关联表，父表行多选，子表如何只加载多选中的关联数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132606) |
| -- 作者：pzhwjx -- 发布时间：2019/3/25 21:19:00 -- 父子关联表，父表行多选，子表如何只加载多选中的关联数据 父子关联表，父表多选，子表如何只加载多选中的数据 1、子表是流水账，数据庞大，分页加载，加载不到所需数据。 2、想选中多个父表行数据，子表加载所选中父表行的关联数据，代码怎么写？ If Tables("员工信息").rows.count = 0 Then Return If CurrentTable.DataTable.Name = "员工信息" Then Dim dr As String dr =Tables("员工信息").Current("工号") DataTables("培训记录").LoadFilter = "工号 = \'" & dr & "\'" DataTables("培训记录").Load End If 以上代码只能单选，多选怎么写？ 3、主要是批量打印要关联子表，子表数据没加载就没显示数据。
|
| -- 作者：有点蓝 -- 发布时间：2019/3/25 22:03:00 -- 结合：http://www.foxtable.com/webhelp/scr/1597.htm、http://www.foxtable.com/webhelp/scr/2228.htm Dim ids As String For i As Integer = Tables("员工信息").TopPosition To Tables("员工信息").BottomPosition ids = ids & "," & Tables("员工信息").Rows(i)("工号") Next ids= ids.Trim(",") DataTables("培训记录").LoadFilter = "工号 in (\'" & ids.Replace(",","\',\'") & "\')" DataTables("培训记录").Load |
| -- 作者：pzhwjx -- 发布时间：2019/3/25 23:39:00 -- 谢谢，有点蓝 |