主题：例子请教

同样复制一份到还款表，将基本表DataRowDeleting事件改为：

Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款明细表").AddNew
For Each dc As DataCol In DataTables("还款明细表").DataCols
    If DataTables("基本表").DataCols.Contains(dc.name) Then
        dr2(dc.name) = dr1(dc.name)
    End If
Next
Dim dr3 As DataRow = DataTables("还款表").AddNew
For Each dc As DataCol In DataTables("还款表").DataCols
    dr3("还款单位") = dr1("记账单位")
    dr3("单据号") = dr1("单据号")
    dr3("还款金额")  =dr1("实售价")
Next

你的设计很奇怪，让人费解，你这三个表的关系是什么？ 设计的任务又是什么？