代码如下：但不起作用。没有数据关联。(我在表B中输入每一条记录，都能自动复制到yonghu表中，)

If e.DataCol.Name = "shuxi" AndAlso e.DataRow("shuxi") = True Then
     Dim dr As DataRow = DataTables("yonghu").AddNew
     For Each dc As DataCol In DataTables("yonghu").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

2.如何在yonghu表中，在数据表的最后一行回车后，如果上行的表中"shuxi"列输入为"集订分送"时，新增一行自动会把上次的所有列的内容都自动复制下来。

请高手指点，代码。

AndAlso e.DataRow("shuxi") = True Then  逻辑列?

如果希望新增行能够自动从最后一行复制全部内容，可以将DataRowAdding事件的代码设置为：

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
For Each dc As DataCol In e.DataTable.DataCols
    e.DataRow(dc.Name) = dr(dc.Name) \'将最后一行的内容复制到新增行中.
Next

请高手指点一下。

以"shuxi"列为条件，“shuxi”列录入内容有：个体，私人，集订分送。

如果"shuxi"列输入“集订分送”时，才把最后一行内容都复制到新增的一行。请问这个代码如何写呀

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

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

狐爸，请帮忙解决一下吧！想分两种情况解决，哪一种比较方便呢。请指教。不会写代码。呵

1.在yonghu表中，在数据表的最后一行回车后，如果上行的表中"shuxi"列输入为"集订分送"时，新增一行自动会把上次的所有列的内容都自动复制下来。

(以"shuxi"列为条件，“shuxi”列录入内容有：个体，私人，集订分送。)

2.在jd表中，每输入一条信息，都会自动复制到yonghu表中，并同时更新和删除。

第一个问题很简单：

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

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

第二个问题，请不要这么做，相同结构的数据应该在同一个表中，不要分开不同的表，最多增加一列，用于标识此行的状态。