| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 复制行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54477) |
| -- 作者：zhangxl1964 -- 发布时间：2014/7/29 11:46:00 -- 复制行 老师：你好！ 帮助中的自动复制行，能否做成一个窗口按钮来实现？
|
| -- 作者：Bin -- 发布时间：2014/7/29 11:47:00 -- CurrentTable.Current.Clone |
| -- 作者：有点甜 -- 发布时间：2014/7/29 11:48:00 -- 参考
http://www.foxtable.com/help/topics/1533.htm
|
| -- 作者：Bin -- 发布时间：2014/7/29 11:48:00 -- 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)) = dr1(nma(i)) Next |
| -- 作者：zhangxl1964 -- 发布时间：2014/7/29 12:42:00 -- Dim Cols1() As String = {"日期","客户名称"} Dim Cols2() As String = {"日期","客户名称"} For Each dr1 As DataRow In DataTables("表A").Select("IsNull[日期] = False ") \'日期不为空时 Dim dr2 As DataRow = DataTables("表B").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next 日期不为空时应该怎么写？
|
| -- 作者：Bin -- 发布时间：2014/7/29 12:47:00 -- "日期 is not null" |
| -- 作者：zhangxl1964 -- 发布时间：2014/7/30 11:17:00 -- 老师：你好！ 是否可以同时复制多行？
|
| -- 作者：Bin -- 发布时间：2014/7/30 11:18:00 -- 5楼代码不就是复制多行么 |