- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27608)
-- 发布时间：2013/1/5 21:07:00
-- 输入
你好！每28行一个循环，第2至28行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的
第一行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容相同，是否有代码可写
此主题相关图片如下：输入.jpg
-- 发布时间：2013/1/5 21:19:00
--
这个简单，做个例子上来吧。
-- 发布时间：2013/1/5 21:39:00
--
好！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2013/1/5 22:00:00
--
Dim r As Row = Tables("表A").Rows(0)
For i As Integer = 1 To 17
For Each cl As col In Tables("表A").cols
Tables("表A").Rows(i)(cl.name) = r(cl.name)
Next
Next
-- 发布时间：2013/1/5 22:05:00
--
你好！请在案例上写，以便我下载学习
[此贴子已经被作者于2013-1-5 22:05:31编辑过]
-- 发布时间：2013/1/5 22:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/1/5 22:33:00
--
你好！ 每28行一个循环，第2至28行的只有第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的
第一行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容相同，但是其它列的所有行的内容不尽相同
有多个循环，都同样操作，第二个循环，第30至56行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的
29的第1，2，3，4，5，6，7，8，12，13，14，15列的内容相同
以此类推
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:桌面.zip |
[此贴子已经被作者于2013-1-5 22:37:18编辑过]
-- 发布时间：2013/1/5 23:23:00
--
Dim n0 As Integer
For n As Integer = 1 To 2
n0 = n0+1
Dim r As Row = Tables("表A").Rows(n0-1)
For i As Integer = n0 To 27*n+n-1
For Each cl As col In Tables("表A").cols
Tables("表A").Rows(i)(cl.name) = r(cl.name)
Next
n0 = n0+1
Next
Next
-- 发布时间：2013/1/5 23:42:00
--
你好！无数个循环（28行）没办法用
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:桌面.zip |
每28行一个循环，第2至28行的只有第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的
第一行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容相同，但是其它列9，10，11，12，13，14的所有行的内容不相同
有多个循环，都同样操作，第二个循环，第30至56行的第1，2，3，4，5，6，7，8，12，13，14，15列的内容跟 每个循环 的29的第1，2，3，4，5，6，7，8，12，13，14，15列的内容相同，但是其它列9，10，11，12，13，14的所有行的内容不相同
以此类推........
-- 发布时间：2013/1/6 0:13:00
--
For n As Integer = 1 To 2 要几个循环就把代码中的 2 改诚 几个