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

CurrentTable.Select(0,0)
syscmd.Edit.Copy()
messagebox.show(1)
CurrentTable.Select(3,0)
Syscmd.Edit.Paste()

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

如何通过代码把第一行、第一列的数据粘贴到第三行、第一列？把第一行的数据全部粘贴到第三行？

 

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

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

第一行第一列的内容 = c2

第三行第一列的内容 = c1

 

 

 

Dim dt As Table = CurrentTable
dt.Select(0,0)
dt.Current("第三列") = dt.Current("第一列")

楼上理解错误。

 

Dim dt As Table = Tables("表B")
For i As integer = 0 to 2
    if i = 2 Then
        dt.Rows(i)("第三列") = dt.Rows(0)("第一列")
    End If
Next

这样是否是个偏方？

 

dim dd as string = CurrentTable.Text(0,0)
CurrentTable.value(2,0) = dd

看到诸位的热情，觉得狐表大有希望。

如何通过代码把第一行的内容复制到第三行？

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

 

 

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

虽然不简洁，但还是可以达到目的的。