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

我想为窗口中的一个按钮增加一个功能：新增一行的时候，复制上一行数据的第一列和第二列，代码怎么写呢？请大家帮助

例如：

 

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