主题：[求助]这段代码什么意思？

请教达人：

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

这个是不是基本表中删除的一行在还款明细表中显示

这是复制数据的代码，如果设置在删除行的事件中，就是将要删除的行的数据复制到"还款明细表"表中。

怎样能将要删除的基本表中行的数据复制到"还款明细表"表中

我这样写了，在基本表中删除了，还款明细表没有显示

还款明细表需要设置什么吗

你把下面的代码，设置在基本表的BeforeDeleteDataRow事件中：

 

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

 

 

建议先按顺序看一下帮助，从使用指南开始看。

哈哈，语言方面不懂，现在急需建一个表。谢谢狐爸了

还款明细表的各个列需要和基本表一样吗

请狐爸给我弄下

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

点击浏览该文件:管理项目３.table

当然，最好一直，如果不一致
 
 
Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("还款明细表").AddNew
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For i As Integer = 0 To Cols1.Length -1
     dr2(Cols2(i)) = dr1(Cols1(i))
Next