按钮代码没有e参数。
按钮代码改成这样:
If CurrentTable.Rows.Count > 0 Then '如果不是一个空表
Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称
Dim dr As Row = CurrentTable.Rows(CurrentTable.Rows.Count - 1) '获得最后一行
Dim r As Row = CurrentTable.Rows.AddNew()
For Each ColName As String in ColNames
r(ColName) = dr(ColName) '将最后一行的内容复制到新增行中
Next
End If
[此贴子已经被作者于2009-8-19 11:57:52编辑过]