主题：请教：事件代码和按钮代码的区别

DataRowAdding事件的代码
 

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

为什么放到窗口按钮里提示错误呢，应该怎样修改呢

不存在按钮代码的，按钮也使用事件，按钮一般用Click事件。
不同的事件，其参数不同，代码自然不通用
这不好解释，你仔细静心看看开发篇就明白了，原理是简单的。

按钮代码没有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

e.DataTable .......................按钮中要改成:DataTable("某表")
e.DataRow(ColName) = .....  按钮中改成: DataTable("某表").DataRow(ColName) = ....
试试看~

If CurrentTable.Rows.Count = 0 Then '如果是一个空表

    Return '那么返回

End If

Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称

Dim dr As Row = CurrentTable.Rows(CurrentTable.Rows.Count - 1) '获得最后一行
Dim dr2 As Row =  CurrentTable.AddNew()
For Each ColName As String in ColNames

    dr2(ColName) = dr(ColName) '将最后一行的内容复制到新增行中

Next

谢谢各位！