- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 子表和父表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173476)
-- 发布时间：2021/12/1 11:30:00
-- 子表和父表
此主题相关图片如下：微信截图_20211201112708.png
希望：3行子表的项目1 选择:张三
李四
王五
在父表项目1：张三，李四，王五。自动显示。
-- 发布时间：2021/12/1 11:53:00
--
参考：http://www.foxtable.com/webhelp/topics/1472.htm
父表DataColChanged事件代码设置为：
If e.DataCol.Name = "xx关联列" Then
Dim Filter As String = "[xx关联列] = \'" & e.NewValue & "\'"
e.DataRow("项目1") = DataTables("子表").GetComboListString("项目1", Filter).replace("|",",")
End If
子表DataColChanged事件代码设置为：
Select Case e.DataCol.Name
Case "项目1"
Dim pr As DataRow
pr = DataTables("统计").Find("xx关联列 = \'" & e.DataRow("xx关联列") & "\'")
If pr IsNot Nothing Then
DataTables("父表").DataCols("xx关联列").RaiseDataColChanged(pr)
End If
End Select