标题：[求助]增加多行

DataRowAdding

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

e参数属性：　

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

示例一

例如希望新增行的日期设为当前系统日期，姓名设为当前登录用户名，可以将DataRowAdding事件的代码设置为：

e.DataRow("日期") = Date.Today()
e.DataRow("姓名") = User.Name

示例二

希望增加行的时候，如果按住了Ctrl键，则自动将选定行的内容复制到新增行中，也就是克隆行：

If ModifierKey <> Keys.Control Then '如果没有按住Ctrl键
    Return '那么返回
End If
If CurrentTable.DataTable.Name <> e.DataTable.Name Then '如果不是在当前表增加行。
    Return '那么返回
End If
If CurrentTable.Current Is Nothing Then '如果当前表选定行为空。
    Return '那么返回
End If
Dim dr As DataRow = CurrentTable.Current.DataRow '获得当前行的DataRow，赋给变量dr
For Each dc As DataCol In e.DataTable.DataCols
    e.DataRow(dc.Name) = dr(dc.Name) '将dr的每一列内容复制到新增行中。
Next