- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何循环复制?? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86212)
-- 发布时间：2016/6/13 10:31:00
-- [求助]如何循环复制??
如何根据某列中的值循环赋值
此主题相关图片如下：)d`%9`o4sno9v%0{`%5z5.png
-- 发布时间：2016/6/13 10:36:00
--
参考代码
Dim r As Row = Tables("表A").current
Dim count As Integer = r("第三列")
For i As Integer = 1 To count-1
Dim nr As Row = Tables("表a").addnew
nr("第一列") = r("第一列")
nr("第二列") = r("第二列")
nr("第三列") = r("第三列")
Next
-- 发布时间：2016/6/13 10:38:00
--
谢谢
-- 发布时间：2016/6/13 11:08:00
--
能不能不要选择性的复制啊 可不可以点击按钮后全部复制???
-- 发布时间：2016/6/13 11:18:00
--
要不要记录是否已经复制过的啊？
Dim drs As List(Of DataRow) = DataTables("表A").Select("")
For Each dr As DataRow In drs
Dim count As Integer = val(dr("第三列"))
For i As Integer = 1 To count-1
Dim nr As Row = Tables("表A").addnew
nr("第一列") = dr("第一列")
nr("第二列") = dr("第二列")
nr("第三列") = dr("第三列")
Next
Next
-- 发布时间：2016/6/13 11:25:00
--
好了 非常感谢