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

做一个复制行的按钮，将表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

 

 

参考：
 
http://www.foxtable.com/help/topics/0396.htm

 
Dim r1 as Row = Tables("表A").Current
if DataTables("表B").Find("设备编号 = '" & r1("设备编号") & "'") IsNot Nothing then
    Return
end if

不客气，建议复习两遍帮助，因为你算是老鸟了，解决不了这种问题是不应该的。

Dim r1 As Row = Tables("设备目录").Current
If DataTables("设备折旧").Find("设备编号 = '" & r1("设备编号") & "'") IsNot Nothing Then
    Return
Else
    Dim nms() As String  = {"设备编号","产权单位"}
    Dim r2 As Row  = Tables("设备折旧").Addnew()
    Dim r3 As Row  = Tables("设备借用").Addnew()
    For Each nm As String In nms
        r2(nm) = r1(nm)
        r3(nm) = r1(nm)
    Next
    r2("启用日期") = r1("购置日期")
    r3("借用日期") = r1("购置日期")
    r3("来源") = "购置"
End If