| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助：同步加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165237) |
| -- 作者：刘异 -- 发布时间：2021/5/11 14:47:00 -- 求助：同步加载 老师好： 有两个表，生产计划表，采购合同明细表，想实现，生产计划表加载时，采购合同明细表中的客户订单号汇总列包含有生产计划表中的客户订单号，那么，就加载进来。 在表事件中AfterLoad写这个代码不对，不知怎样修改。 If DataTables("生产计划表").DataRows.Count = 0 Then DataTables("采购合同明细表").LoadFilter
= "客户订单号 Is Null" Else Dim ids As String For Each dr As DataRow In DataTables("生产计划表").DataRows ids = ids & ",\'" &
dr("客户订单号")
& "\'" Next ids= ids.Trim(",") DataTables("采购合同明细表").LoadFilter
= " 客户订单号汇总 Like
\'%(" & ids & ")%\'" End If DataTables("采购合同明细表").Load() |
| -- 作者：有点蓝 -- 发布时间：2021/5/11 15:03:00 -- 客户订单号汇总列是多值字段？ |
| -- 作者：刘异 -- 发布时间：2021/5/11 16:34:00 -- 是的 |
| -- 作者：有点蓝 -- 发布时间：2021/5/11 16:42:00 -- Else Dim ids As String = "1=2" For Each dr As DataRow In DataTables("生产计划表").DataRows ids = ids & " or 客户订单号汇总 Like \'%" & dr("客户订单号") & "%\'" Next DataTables("采购合同明细表").LoadFilter = End If |
| -- 作者：刘异 -- 发布时间：2021/5/11 17:56:00 -- 多谢老师 |