主题：复制粘贴代码不可用

这是正常的，复制粘贴的系统命令，只是模拟Ctrl+c和Ctrl+v按键而已，只有焦点在表格才有效

Dim c1 As String = 第一行第一列的内容

Dim c2 As String = 第三行第一列的内容

第一行第一列的内容 = c2

第三行第一列的内容 = c1

 

 

 

基本概念清楚了,这样的问题很简单的:

 

 

Dim  r1 As Row = CurrentTable.Rows(0) '第一行
Dim  r3 As Row = CurrentTable.Rows(3) '第三行

For Each c As Col In CurrentTable.Cols  '逐列复制

   r3(c.Name) = r1(c.Name)

Next

够简洁了

 

呵呵，有的时候简洁可不意味着高效，Mr725兄的这段可不够我这段效率高，因为每次循环都要重新从集合中找出第一样和第三行。