主题：例子请教

同样复制一份到还款表，将基本表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

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

这样的系统，不应该删除行的，而是直接在基本标中增加一个逻辑列，名称为还款，已经还款的直接打勾即可。

这样方便很多，全部在一个表中，通过对这个逻辑列进行筛选，轻松得到已经还款的数据，没有还款的数据，或者显示所有数据。

如果喜欢的话，你可以设计一个窗口，做好所有的功能，单击一次鼠标得到需要的数据和统计结果：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目214.rar