主题：[求助]关于父表子表修改问题

DataCochanged事件，加入代码

Select Case e.DataCol.name
    Case "销售编号"
        Dim dr As DataRow = DataTables("资金流水").Find("业务编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("资金流水").AddNew()
            dr("业务日期") = e.DataRow("日期")
            dr("收入金额") = e.DataRow("实收金额")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("银行账号名称") = e.DataRow("银行账号名称")
        Else
            dr("销售编号") = e.DataRow("销售编号")
        End If
    Case Else
        Dim dr As DataRow = DataTables("资金流水").Find("业务编号 = '" & e.DataRow("销售编号") & "'")
        If dr IsNot Nothing Then
            dr("业务日期") = e.DataRow("日期")
            dr("收入金额") = e.DataRow("实收金额")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("银行账号名称") = e.DataRow("银行账号名称")
        End If
End Select