主题：[求助]在窗口中按钮，功能为复制上一行固定几列内容的写法

例如：

Dim ColNames As String() = {"日期","客户","雇员"}

Dim r1 As Row = Tables("xxx").Rows(Tables("xxx").Rows.Count - 1)

Dim r2 As Row = Tables("xxx").AddNew()

For Each ColName As String in ColNames 
       r2(ColName) = r1(ColName)
Next