- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表格某行内容转动到指定表格内怎么弄? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22019)
-- 发布时间：2012/7/31 10:14:00
-- 表格某行内容转动到指定表格内怎么弄?
如图
此主题相关图片如下：p8kl2i)`}gnud8jpna0ij6.jpg
设计了个表格在表格末列添加了按键，如何设置这个按键能够让与其对应行的内容全部转到另外一个指定的表格中呢？
-- 发布时间：2012/7/31 14:25:00
--
http://www.foxtable.com/help/topics/2292.htm
-- 发布时间：2012/7/31 14:40:00
--
哦~~~我试试，这个有没有要求两个表的列的内容必须一样呢？
-- 发布时间：2012/7/31 16:05:00
--
你没明白我的意思，不要这种自动复制过去的，最好能是个按键，选择某行后，点击按键，然后自动把这行的内容转移到另外一个表中，可以实现不哦？
-- 发布时间：2012/7/31 16:28:00
--
道理一样的，例如要复制表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
-- 发布时间：2012/7/31 16:30:00
--
可不可以直接做成剪切呢？这样这个表这个内容就没有了
-- 发布时间：2012/7/31 16:42:00
--
复制后删除，也就是剪切：
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()
-- 发布时间：2012/7/31 16:43:00
--
哦~~~明白了，谢谢了哈！
-- 发布时间：2012/7/31 17:13:00
--
狐爸，这个点击后怎么没反应呢？
-- 发布时间：2012/7/31 17:16:00
--
dr.Delete()放置位置没对，这样转过去后就直接被删除了！但没有删除原来表格的那行