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

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