Foxtable(狐表)用户栏目专家坐堂 → [求助]循环填充表格求教


  共有2278人关注过本帖树形打印复制链接

主题:[求助]循环填充表格求教

帅哥哟,离线,有人找我吗?
foxtable-hg
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:1059 威望:0 精华:0 注册:2018/9/9 18:03:00
[求助]循环填充表格求教  发帖心情 Post By:2020/2/26 0:53:00 [只看该作者]

想实现一段循环代码,琢磨了一天也没个头绪图片点击可在新窗口打开查看请老师教一下。


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

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40574 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/2/26 1:07:00 [只看该作者]

发文件

 回到顶部
帅哥哟,离线,有人找我吗?
foxtable-hg
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:1059 威望:0 精华:0 注册:2018/9/9 18:03:00
  发帖心情 Post By:2020/2/26 1:12:00 [只看该作者]

谢谢程老师,居然这么晚还在……写不出来刚收拾了睡觉??……明早传个实例。

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:1059 威望:0 精华:0 注册:2018/9/9 18:03:00
  发帖心情 Post By:2020/2/26 9:33:00 [只看该作者]

谢谢蓝版,代码学会了。。。 总是差那么一点点思路图片点击可在新窗口打开查看

 回到顶部