以文本方式查看主题 - 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 -- 谢谢蓝版,代码学会了。。。 总是差那么一点点思路 |