主题：[求助]如何将子表中某字段值自动填到父表中指定字段

子表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