主题：日期自动增加

e.datarow("组长列")="组长名字"

看帮助:

 

DataRowAdding

增加一行时执行，此时新增行(DataRow)已经创建，但并未真正增加到DataTable中，通常在此处对新增行进行默认值的设置。

e参数属性：　

DataTable：返回增加行的数据表。
DataRow：  返回新增加的行。

 

 

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If
Dim ColNames As String() = {"组长,"日期","班次"} '定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each ColName As String in ColNames
    e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
Next