Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入


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

主题：输入
帅哥哟，离线，有人找我吗？
ppxxww
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3035 威望：0 精华：0 注册：2011/12/26 11:58:00 		输入  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2013/1/5 21:19:00 [只看该作者]

这个简单，做个例子上来吧。

 
 回到顶部
帅哥哟，离线，有人找我吗？
ppxxww
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3035 威望：0 精华：0 注册：2011/12/26 11:58:00 		  发帖心情 Post By：2013/1/5 21:39:00 [只看该作者]

好！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
ppxxww
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3035 威望：0 精华：0 注册：2011/12/26 11:58:00 		  发帖心情 Post By：2013/1/5 22:05:00 [只看该作者]

你好！请在案例上写，以便我下载学习
[此贴子已经被作者于2013-1-5 22:05:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2013/1/5 22:16:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
ppxxww
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3035 威望：0 精华：0 注册：2011/12/26 11:58:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：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

 
 回到顶部
帅哥哟，离线，有人找我吗？
ppxxww
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：308 积分：3035 威望：0 精华：0 注册：2011/12/26 11:58:00 		  发帖心情 Post By：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的所有行的内容不相同
     以此类推........
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2013/1/6 0:13:00 [只看该作者]

For n As Integer = 1 To 2   要几个循环就把代码中的 2 改诚 几个

 回到顶部
总数 39 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 8 次数据查询