Dim dr1 As Row = CurrentTable.Rows(指定行数-1) '将另一行的值替代到指定行 Dim dr2 As Row = CurrentTable.Rows(另一行数-1) For Each dc As Col In CurrentTable.Cols If dc.DataCol.Expression = "" Then dr1(dc.name) = dr2(dc.name) dr2(dc.name) = Nothing End If '将另一行的值为空,并移动到最后行 dr2.move(CurrentTable.count - 1) Next
加好友 
发短信
Post By：2018/12/26 17:23:00 [显示全部帖子]
