- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 非关联表加载问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117735)
-- 发布时间：2018/4/18 13:57:00
-- 非关联表加载问题
表T_CMaterial和 T_PIM 为非关联表，但他们可以通过一样列CMNo进行关联，以下代码加在T_CMaterial下的afterload会提示以下：
Dim ids As String
For Each dr As DataRow In DataTables("T_CMaterial").DataRows
ids = ids & "," & dr("CMNo")
Next
ids= ids.Trim(",")
DataTables("T_PIM").LoadFilter = "CMNo In (" & ids & ")"
DataTables("T_PIM").Load()
出现以下错误
此主题相关图片如下：2.jpg
若根据教程的话，增加以下代码会出现以下问题：
DataTables("T_CMaterial").LoadChildren("T_PIM", "CMNo", "CMNo")
此主题相关图片如下：qq截图20180418134612.jpg
-- 发布时间：2018/4/18 14:28:00
--
改成
Dim ids As String = "\'\'"
For Each dr As DataRow In DataTables("T_CMaterial").DataRows
ids = ids & ",\'" & dr("CMNo") & "\'"
Next
ids= ids.Trim(",")
DataTables("T_PIM").LoadFilter = "CMNo In (" & ids & ")"
DataTables("T_PIM").Load()
-- 发布时间：2018/4/18 15:00:00
--
改成你这个代码海华丝提示父表和子表不同在一个数据源
-- 发布时间：2018/4/18 15:13:00
--
2楼代码单独执行，绝对没问题的。
-- 发布时间：2018/4/18 15:26:00
--
算了 我还是将他们直接在系统关联吧