主题：[求助]按钮代码（已解决）

做一个复制行的按钮，将表A选定行复制到表B

 

dim r1 as Row = Tables("表A").Current

if 表B存在对应行 Then

  Return

Else

    Dim nms() As String  = {"列1","列2","列3"}

    Dim r2 as row  = Tables("表B").Addnew()

    For each nm as string in nms

        r2(nm) = r1(nm)

    next

end If