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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  垂直表转为水平表错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144246)

--  作者：透明人生
--  发布时间：2019/12/14 23:39:00
--  垂直表转为水平表错误

按照帮助代码改过来的，出现错误。是否和外部表有关系（SQL）？
Dim dtb As New DataTableBuilder("成绩表")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("自测成绩表").GetValues("学科")
dtb.AddDef(v,Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("自测成绩表").GetValues("姓名")
Dim dr1 As DataRow = DataTables("成绩表").AddNew()
dr1("姓名") = v
For Each dr2 As DataRow In DataTables("自测成绩表").Select("姓名 = \'" & v & "\'")
dr1(dr2("学科")) = dr2("分数")
Next
Next
MainTable = Tables("成绩表")

此主题相关图片如下：qq图片20191214233456.png

--  作者：有点蓝
--  发布时间：2019/12/15 20:16:00
--
试试

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

--  作者：透明人生
--  发布时间：2019/12/15 22:56:00
--
谢谢，可以了！
1、在第一句后加入此代码进行筛选，提示：FIlter不是DataTableBuilder的成员。
dtb.FIlter = Tables("自测成绩表").FIlter

2、计算总分：DataTables("成绩表").DataCols.Add("总分",Gettype(Double),"isnull([语文],0) + isnull([英语],0) + isnull([数学],0)")
当学科中少了一科（如：英语），会提示找不到“英语”，总分不能计算，如何做到，仍然计算总分。

--  作者：有点蓝
--  发布时间：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))
Next
dtb.Build()

方法2：动态合成表达式
dim s as string = "0 "
For Each v As String In DataTables("自测成绩表").GetValues("学科")
s = s & " + isnull([" & v & "],0)"
next
DataTables("成绩表").DataCols.Add("总分",Gettype(Double), s)

--  作者：透明人生
--  发布时间：2019/12/16 20:49:00
--

提示：找不到列[学科]：我用动态合成表达式
Tables("成绩表").FIlter = Tables("自测成绩表").FIlter

--  作者：有点蓝
--  发布时间：2019/12/16 20:50:00
--
如果两个表的结构不一样，不能直接这样用的

--  作者：透明人生
--  发布时间：2019/12/16 23:31:00
--
有没有办法，先筛选，然后再把筛选后的数据转化为水平结构表？

--  作者：有点蓝
--  发布时间：2019/12/17 8:46:00
--
肯定可以。请上传实例说明

--  作者：透明人生
--  发布时间：2019/12/17 17:50:00
--
未筛选的数据：
此主题相关图片如下：11.png

已筛选的数据：
此主题相关图片如下：12.png

运用代码，转为水平结构表，结果还是未筛选，我想要的结果是先筛选，再转化。

此主题相关图片如下：13.png

附代码：
Dim dtb As New DataTableBuilder("自测水平表")
‘Tables("自测水平表").FIlter = Tables("自测成绩表").FIlter 不存在列学科。
dtb.AddDef("学校",Gettype(String),10)
dtb.AddDef("年级",Gettype(String),10)
dtb.AddDef("班级",Gettype(String),10)
dtb.AddDef("单元",Gettype(String),10)
dtb.AddDef("座号",Gettype(String),10)
dtb.AddDef("姓名",Gettype(String),10)
Dim s As String = "0 "
For Each v As String In DataTables("自测成绩表").GetValues("学科","学科 is not null")
    dtb.AddDef(v, Gettype(Double))
s = s & " + isnull([" & v & "],0)"
Next
dtb.Build()
For Each v As String() In DataTables("自测成绩表").GetValues("学校|年级|班级|单元|座号|姓名")
    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) & "\'")
        dr1(dr2("学科")) = dr2("分数")
    Next
Next
DataTables("自测水平表").DataCols.Add("总分",Gettype(Double), s)
Tables("自测水平表").SetColVisibleWidth("学校|85|年级|60|班级|50|单元|50|座号|50|姓名|50|语文|50|数学|50|英语|50|总分|50")
MainTable = Tables("自测水平表")

--  作者：有点蓝
--  发布时间：2019/12/17 20:38:00
--
msgbox（Tables("自测成绩表").FIlter ）具体是什么条件？按什么条件筛选？