主题：子表和父表

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