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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表A第一列转表B多列

共有4155人关注过本帖树形打印复制链接主题：[求助]表A第一列转表B多列

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]表A第一列转表B多列 发帖心情

Post By：2023/4/27 12:11:00 [只看该作者]

求助，表a第一列多行的值转表b多列一行

表a第一列多行的值是固定的规律

日期

编号

成绩1

成绩2

成绩3

成绩4

成绩5

日期

编号

成绩1

成绩2

成绩3

成绩4

成绩5

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表a第一列多行的值转表b多列一行.foxdb

狐表不能升级，高版本项目打不开了，辛苦代码贴出了，感谢

[此贴子已经被作者于2023/4/27 12:11:46编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/27 13:36:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2965.htm

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）http://www.foxtable.com/webhelp/to... 发帖心情

Post By：2023/4/27 15:02:00 [只看该作者]

蓝总，我的思路是这样的：

表A总行数除7，得到的整数（表B新建的行数）

表A总行数除7得到余数6、5、4、3、2、1、0的行，填入的日期、编号、甲、乙、丙、丁、做法

就是下面的代码有问题，求助实现上面的思路

For Each v As String In DataTables("表A").GetValues("第一列")

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

For i As Integer = 0 To t.Rows.Count(True) - 1

If i Mod 7 = 0 Then

Dim dr1 As DataRow = DataTables("表B").AddNew()

If i Mod 7 = 0 Then

dr1("甲") = v

End If

If i Mod 7 = 1 Then

dr1("乙") = v

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/27 15:13:00 [只看该作者]

For i As Integer = 0 To t.Rows.Count - 1 step 7

Dim dr1 As DataRow = DataTables("表B").AddNew()

dr1("日期") = t.Rows(i)("第一列")

dr1("编号") = t.Rows(i+1)("第一列")

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）For i As Integer = 0 To t.Rows.Cou... 发帖心情

Post By：2023/4/27 16:22:00 [只看该作者]

蓝总，求助怎么增加表b不重复新增编号一样的行

For Each v As String In DataTables("表A").GetValues("第一列")

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

For i As Integer = 0 To t.Rows.Count - 1 Step 7

Dim pr As DataRow

If DataTables("表B").Compute("Count([_Identify])","编号 = '" & pr("编号") & "'") = 0 Then '加这个判断,要有2个值以上才执行下面代码,效率高

'Dim pr As DataRow

'pr = DataTables("表B").Find("编号 = '" & pr("编号") & "'")

'If pr IsNot Nothing Then

'Else

Dim dr1 As DataRow = DataTables("表B").AddNew()

dr1("日期") = t.Rows(i)("第一列")

dr1("编号") = t.Rows(i+1)("第一列")

dr1("甲") = t.Rows(i+2)("第一列")

dr1("乙") = t.Rows(i+3)("第一列")

dr1("丙") = t.Rows(i+4)("第一列")

dr1("丁") = t.Rows(i+5)("第一列")

dr1("方法") = t.Rows(i+6)("第一列")

End If

[此贴子已经被作者于2023/4/27 16:23:52编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/27 16:25:00 [只看该作者]

If DataTables("表B").Compute("Count([编号])","编号 = '" & t.Rows(i+1)("第一列") & "'") =0 Then

下一主题 >> << 上一主题

主题：[求助]表A第一列转表B多列