以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将子表中某字段值自动填到父表中指定字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96247)
--  作者：chh2321
--  发布时间：2017/2/16 11:38:00
--  [求助]如何将子表中某字段值自动填到父表中指定字段
您好，老师！
     我想请教：（1）如何将子表中某字段值自动填到父表中指定字段，子表中该字段的值可能相同，可能不同，可能空值，自动填入父表指定字段：以符号“|”隔开不同值，去重复（只显示不重复值），去空值。
                   （2）如果没有建立父子关联，只用代码，如何实现上述功能。

     谢谢！
--  作者：有点色
--  发布时间：2017/2/16 12:17:00
--  

子表DataColChanged事件

 

If e.DataCol.name = "第一列" Then
    Dim pdr As DataRow = DataTables("表B").find("第二列 = \'" & e.DataRow("第二列") & "\'")
    If pdr IsNot Nothing Then
        Dim str As String = e.DataTable.GetComboListString("第一列", "第二列 = \'" & e.DataRow("第二列") & "\'")
        pdr("第三列") = str
    End If
End If
--  作者：chh2321
--  发布时间：2017/2/16 12:45:00
--  
非常感谢老师，困扰了我很长时间，现在问题解决了