| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 列表转移的问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45131) |
| -- 作者：qianqian1530 -- 发布时间：2014/1/16 14:48:00 -- 列表转移的问题。 问一下， 可不可以实现以下功能 将 A表的某一行（多行） ，剪切（转移）到B表格里去？ 用按钮来实现。..
|
| -- 作者：Bin -- 发布时间：2014/1/16 14:50:00 -- 参考帮助的复制行 把在DataColChanged中获取触发行,改为循环选中行即可.
|
| -- 作者：Bin -- 发布时间：2014/1/16 14:54:00 -- 遍历选中行 For Each i As Integer=Tables("表A").TopRow To Tables("表A").BottomRow Dim r As Row = Tables("表A").Rows(i) Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列 Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列Dim dr As DataRow = DataTables("表B").AddNew For i As Integer = 0 To nma.Length - 1 dr(nmb(i)) = r(nma(i)) Next r.Delete
Next |
| -- 作者：qianqian1530 -- 发布时间：2014/1/16 17:06:00 -- bin… 我想要的不是复制，是剪切， 也就是a表里剪切到b表里， a表里就不存在那个数据了… |
| -- 作者：Bin -- 发布时间：2014/1/16 17:08:00 -- 你是否尝试过代码了? 代码你看了吗? 试图去理解了吗? |
| -- 作者：qianqian1530 -- 发布时间：2014/1/16 22:30:00 -- 俺错了.... |