主题：怎么从表A的某行数据通过按钮和其他方式复制到表B

可以看看这个：
http://www.foxtable.com/help/topics/2292.htm

稍微改一下，就可以做成按钮的代码，例如将表A当前行的数据复制到表B:
 
Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列
Dim r As DataRow = Tables("表A").Current
Dim dr As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = r(nma(i))
Next