垂直表转为水平表错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 垂直表转为水平表错误

共有3474人关注过本帖树形打印复制链接主题：垂直表转为水平表错误

有点蓝

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

加好友

发短信

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

Post By：2019/12/15 20:16:00 [显示全部帖子]

试试

For Each v As String In DataTables("自测成绩表").GetValues("学科","学科 is not null")

有点蓝

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

加好友

发短信

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

Post By：2019/12/16 8:36:00 [显示全部帖子]

1、Tables("成绩表").FIlter = Tables("自测成绩表").FIlter

2、

方法1：创建临时表加上所有的学科

Dim dtb As New DataTableBuilder("成绩表")

dtb.AddDef("姓名", Gettype(String), 32)

For Each v As String In "语文，数学，英语，其它科目...".split(",")

dtb.AddDef(v,Gettype(Double))

dtb.Build()

方法2：动态合成表达式

dim s as string = "0 "

For Each v As String In DataTables("自测成绩表").GetValues("学科")

s = s & " + isnull([" & v & "],0)"

DataTables("成绩表").DataCols.Add("总分",Gettype(Double), s)

有点蓝

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

加好友

发短信

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

Post By：2019/12/16 20:50:00 [显示全部帖子]

如果两个表的结构不一样，不能直接这样用的

有点蓝

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

加好友

发短信

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

Post By：2019/12/17 8:46:00 [显示全部帖子]

肯定可以。请上传实例说明

有点蓝

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

加好友

发短信

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

Post By：2019/12/17 20:38:00 [显示全部帖子]

msgbox（Tables("自测成绩表").FIlter ）具体是什么条件？按什么条件筛选？

有点蓝

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

加好友

发短信

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

Post By：2019/12/17 20:40:00 [显示全部帖子]

For Each v As String In DataTables("自测成绩表").GetValues("学科",Tables("自测成绩表").FIlter)

dtb.AddDef(v, Gettype(Double))

s = s & " + isnull([" & v & "],0)"

dtb.Build()

For Each v As String() In DataTables("自测成绩表").GetValues("学校|年级|班级|单元|座号|姓名"，Tables("自测成绩表").FIlter)

Dim dr1 As DataRow = DataTables("自测水平表").AddNew()

dr1("学校") = v(0)

dr1("年级") = v(1)

dr1("班级") = v(2)

dr1("单元") = v(3)

dr1("座号") = v(4)

dr1("姓名") = v(5)

For Each dr2 As DataRow In DataTables ("自测成绩表").Select("学校 = '" & v(0) & "'and 年级 = '" & v(1) & "' And 班级 = '" & v(2) & "'and 单元 = '" & v(3) & "'and 座号 = '" & v(4) & "' And 姓名 = '" & v(5) & "'") ‘不知道具体数据是什么样的不确定这里是否也添加Tables("自测成绩表").FIlter条件，自己根据数据判断一下

dr1(dr2("学科")) = dr2("分数")

有点蓝

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

加好友

发短信

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

Post By：2019/12/17 23:00:00 [显示全部帖子]

请贴出更改后的完整代码

有点蓝

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

加好友

发短信

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

Post By：2019/12/17 23:07:00 [显示全部帖子]

For Each v As String In DataTables("自测成绩表").GetValues("学科",IIF(Tables("自测成绩表").FIlter>"",Tables("自测成绩表").FIlter & " and 学科 is not null", "学科 is not null"))

For Each dr2 As DataRow In DataTables ("自测成绩表").Select("学校 = '" & v(0) & "'and 年级 = '" & v(1) & "' And 班级 = '" & v(2) & "'and 单元 = '" & v(3) & "'and 座号 = '" & v(4) & "' And 姓名 = '" & v(5) & "' and " & IIF(Tables("自测成绩表").FIlter> "",Tables("自测成绩表").FIlter, "1=1"))

GetValues和Select的用法建议认真看一看帮助，而不是只会抄

有点蓝

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

加好友

发短信

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

Post By：2020/3/2 9:42:00 [显示全部帖子]

生成的统计表数据是怎么样的？截图看看，目录树勾选的代码发上来

有点蓝

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

加好友

发短信

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

Post By：2020/3/2 11:51:00 [显示全部帖子]

出错时显示一下最终的条件看看

msgbox(flt)

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

总数 16 1 2 下一页

主题：垂直表转为水平表错误