主题：[求助]复制多表多行的问题

 是不是这个意思？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

不是已经给你写代码了么？先勾选表A，再勾选表B，就能达到你的要求了啊。

点击按钮，你要赋值表B的哪一行的哪几列？

 代码

Dim nma() As String = {"第三列","第四列"} 'A表数据来源列
Dim nmb() As String = {"第三列","第四列"} 'B表数据接收列
Dim drb As Row = Tables("表B").Rows(Tables("表B").count-1)
Dim dr As Row = Tables("表C").Current
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = drb(nma(i))
Next

Dim nmc() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmd() As String = {"第一列","第二列"} 'B表数据接收列
Dim dra As Row = Tables("表A").Current
Dim drc As Row = Tables("表C").AddNew
For i As Integer = 0 To nmc.Length - 1
    drc(nmd(i)) = dra(nmc(i))
Next

Dim nma() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmb() As String = {"第三列","第四列"} 'B表数据接收列
Dim drb As Row = Tables("表B").Current
Dim dr As Row = Tables("表C").Current
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = drb(nma(i))
Next

 你需要的是，克隆行

Tables("表C").Rows(Tables("表C").Rows.Count-1).Clone

http://www.foxtable.com/help/topics/0600.htm

窗口里面，是没有组合按钮控件的。类似功能，你可以用组合框代替。