父表B的DataColChanged事件代码设置为：

\'...

If e.DataCol.Name = "零件编号" Then 
    Dim Filter As String = "[零件编号] = \'" & e.NewValue & "\'"
    e.DataRow("字符列2") = DataTables("子表A").GetComboListString("字符列1", Filter).replace("|","、")
End If

子表ADataColChanged事件

Select Case e.DataCol.Name
    Case "零件编号","字符列1"
        Dim pr As DataRow
        pr = DataTables("父表B").Find("零件编号 = \'" & e.DataRow("零件编号") & "\'")
        If pr IsNot Nothing Then
            DataTables("父表B").DataCols("零件编号").RaiseDataColChanged(pr)
        End If
End Select