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


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

主题:转为水平表

帅哥哟,离线,有人找我吗?
透明人生
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
转为水平表  发帖心情 Post By:2020/11/17 21:51:00 [只看该作者]

下面代码是在有筛选情况下进行转化,在三个学科同时存在时,筛选两个学科时,总有一个学科成绩显示不正常,

每个学生的成绩全是最后一个座号的成绩。如何做到筛选不影响成绩?

如表:


此主题相关图片如下:系统筛选树.png
按此在新窗口浏览图片


此主题相关图片如下:转为水平表.png
按此在新窗口浏览图片

Dim dtb As New DataTableBuilder("自测水平表")

dtb.AddDef("学校",Gettype(String),20)

dtb.AddDef("年级",Gettype(String),10)

dtb.AddDef("班级",Gettype(String),10)

dtb.AddDef("单元",Gettype(String),10)

dtb.AddDef("座号",Gettype(String),20)

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

dtb.AddDef("年度",Gettype(String),20)

dtb.AddDef("学期",Gettype(String),10)

Dim s As String = "0 "

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

    dtb.AddDef(v, Gettype(Double))

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

Next

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)

    dr1("年度") = v(6)

    dr1("学期") = v(7)

   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"))

 

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

    Next

Next

DataTables("自测水平表").DataCols.Add("总分",Gettype(Double), s)

Tables("自测水平表").SetColVisibleWidth("学校|85|年级|60|班级|50|单元|50|座号|50|姓名|50|语文|50|数学|50|英语|50|音乐|50|体育|50|美术|50|科学|50|道德与法治|50|信息技术|50|总分|50|年度|40|学期|20")

MainTable = Tables("自测水平表")


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/17 22:05:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/11/17 22:21:00 [只看该作者]



[此贴子已经被作者于2020/11/17 23:02:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/17 22:53:00 [只看该作者]

Dim dtb As New DataTableBuilder("自测水平表")
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)
dtb.AddDef("年度",Gettype(String),10)
dtb.AddDef("学期",Gettype(String),10)
Dim s As String = "0 "
Dim filter As String = "学科 is not null"
If Tables("城厢区灵川中心小学自测成绩表").FIlter>"" Then
    filter = filter & " and (" & Tables("城厢区灵川中心小学自测成绩表").FIlter & ")"
End If
For Each v As String In DataTables("城厢区灵川中心小学自测成绩表").GetValues("学科",filter )
    dtb.AddDef(v, Gettype(Double))
    s = s & " + isnull([" & v & "],0)"
Next
dtb.Build()
For Each v As String() In DataTables("城厢区灵川中心小学自测成绩表").GetValues("学校|年级|班级|单元|座号|姓名|年度|学期",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)
    dr1("年度") = v(6)
    dr1("学期") = v(7)
    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 " & filter ) ' And " & IIF(Tables("城厢区灵川中心小学自测成绩表").FIlter> "",Tables("城厢区灵川中心小学自测成绩表").FIlter, "1=1"))
        dr1(dr2("学科")) = dr2("分数")
    Next
Next
DataTables("自测水平表").DataCols.Add("总分",Gettype(Double), s)
Tables("自测水平表").SetColVisibleWidth("学校|85|年级|60|班级|50|单元|50|座号|50|姓名|50|语文|50|数学|50|英语|50|总分|50|年度|40|学期|50")
MainTable = Tables("自测水平表")
For Each c As Col In Tables("自测水平表").Cols
    c.TextAlign = TextAlignEnum.Center
Next
[此贴子已经被作者于2020/11/17 23:25:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/11/17 23:02:00 [只看该作者]

谢谢,老师!能不能把你发表的系统删除了,担心信息泄漏。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/17 23:24:00 [只看该作者]

下次把这个表导出到一个新项目发上来即可,没有必要发整个项目

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/11/18 19:43:00 [只看该作者]

好的,谢谢!原表分数中某位学生成绩没填,就是留空,为什么转为水平表后,这个学生分数变为0,不是原来的空。
要让成绩是空的生成水平表空仍然是空,如果成绩填0的,生成水平表后这个学生成绩才是0。
[此贴子已经被作者于2020/11/18 20:00:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/19 8:36:00 [只看该作者]

一样的用法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=158373

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/11/19 21:07:00 [只看该作者]

试了好多,不行。可能还是理解不了代码的意思。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/19 21:08:00 [只看该作者]

怎么试的,贴出具体代码说明

 回到顶部
总数 13 1 2 下一页