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