以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]循环填充表格求教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146536)

--  作者:foxtable-hg
--  发布时间:2020/2/26 0:53:00
--  [求助]循环填充表格求教
想实现一段循环代码,琢磨了一天也没个头绪图片点击可在新窗口打开查看请老师教一下。


例如从数据仓库中依次取出1,2,3,4,5,6,7...70个数字,想循环依次填充到表格的第一列至第七列中,每列填写1个数字,在第七列表格新增一行继续填充,最终是7列10行。想用嵌套的循环来实现,但是没思路。。老师能指教一下么。。图片点击可在新窗口打开查看没有什么编程思想,所以实在是写不来……感谢论坛的老师了。
[此贴子已经被作者于2020/2/26 1:06:35编辑过]

--  作者:程兴刚
--  发布时间:2020/2/26 1:07:00
--  
发文件
--  作者:foxtable-hg
--  发布时间:2020/2/26 1:12:00
--  
谢谢程老师,居然这么晚还在……写不出来刚收拾了睡觉??……明早传个实例。
--  作者:有点蓝
--  发布时间:2020/2/26 9:05:00
--  
比如:
Dim s As String = "1234567abcdefg"
For i As Integer = 0 To s.Length-1 Step 7
    Dim r As Row = Tables("表B").AddNew
    For j As Integer = 0 To 6
        r(j) = s(i+j)
    Next
Next

--  作者:foxtable-hg
--  发布时间:2020/2/26 9:33:00
--  
谢谢蓝版,代码学会了。。。 总是差那么一点点思路图片点击可在新窗口打开查看