主题：表格某行内容转动到指定表格内怎么弄?

如图

此主题相关图片如下：p8kl2i)`}gnud8jpna0ij6.jpg

设计了个表格在表格末列添加了按键，如何设置这个按键能够让与其对应行的内容全部转到另外一个指定的表格中呢？

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 Row  = 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

可不可以直接做成剪切呢？这样这个表这个内容就没有了

复制后删除，也就是剪切：

 

Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列

Dim r As Row = 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
dr.Delete()

哦~~~明白了，谢谢了哈！

狐爸，这个点击后怎么没反应呢？

dr.Delete()放置位置没对，这样转过去后就直接被删除了！但没有删除原来表格的那行