求助:列拆分问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助:列拆分问题

共有23813人关注过本帖树形打印复制链接主题：求助:列拆分问题

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/12/9 13:05:00 [显示全部帖子]

我也交作业，早上一上班就做这个，结果做了一半，就停电了：

Dim Count As Integer = Math.Ceiling(DataTables("样本").DataRows.Count / 3)

DataTables("排列表").DataRows.Clear()

Dim dr1,dr2 As DataRow

Tables("排列表").AddNew(Count)

For c As Integer = 0 To 2

For r As Integer = 0 To Count - 1

dr1 = DataTables("排列表").DataRows(r)

dr2 = DataTables("样本").DataRows(Count * c + r)

dr1("班级" & (c+1)) = dr2("班级")

dr1("姓名" & (c+1)) = dr2("姓名")

[此贴子已经被作者于2008-12-9 13:17:55编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/12/9 16:16:00 [显示全部帖子]

哈哈，老袁厉害，学习ing...

图片点击可在新窗口打开查看

主题：求助:列拆分问题