主题：跨表删除行的问题

跨表自动增加一行的代码：

If e.DataCol.Name = "已审核" AndAlso e.DataRow("已审核") = True Then

     Dim dr As DataRow = DataTables("汇总表").AddNew

     For Each dc As DataCol In DataTables("汇总表").DataCols

         dr(dc.Name) = e.DataRow(dc.Name)

     Next