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

这是多层表头："第1小组_八班级1班", "第1小组_八班级2班", "第2小组_八班级3班", "第2小组_八班级4班", "第3小组_八班级5班"

教研班组：第1小组, 第2小组，第3小组，第4小组

年级班级：八班级1班, 八班级2班, 八班级3班, 八班级4班, 八班级5班，八班级6班, 八班级7班, 八班级8班

主要涉及两层表头的问题，就不会处理了

[此贴子已经被作者于2024/2/23 13:50:08编辑过]

dim ss() as string = km.split("_")

dr2("教研班组") = ss(0)

dr2("年级班级") = ss(1)

Dim dtb As New DataTableBuilder("转换成垂直表1")

dtb.AddDef("星期几", GetType(String), 16)

dtb.AddDef("编排序号", GetType(String), 16)

dtb.AddDef("节次", GetType(String), 16)

dtb.AddDef("时间", GetType(String), 20)

dtb.AddDef("教研班组", GetType(String), 16)

dtb.AddDef("年级班级", GetType(String), 16)

dtb.AddDef("课程名称", GetType(String), 20)

dtb.Build()

Dim kms() As String = {"第1组_八班级1班", "第1组_八班级2班", "第2组_八班级3班", "第2组_八班级4班", "第3组_八班级5班", "第3组_八班级6班", "第4组_八班级7班", "第4组_八班级8班"}

For Each dr1 As DataRow In DataTables("课表82竖0").DataRows

For Each km As String In kms

Dim dr2 As DataRow = DataTables("转换成垂直表1").AddNew()

dr2("星期几") = dr1("星期几")

dr2("编排序号") = dr1("编排序号")

dr2("节次") = dr1("节次")

dr2("时间") = dr1("时间")

Dim ss() As String = km.split("_")

dr2("教研班组") = ss(0)

dr2("年级班级") = ss(1)

dr2("课程名称") = dr1(km)

MainTable = Tables("转换成垂直表1")

蓝老师，课程名称数据没出来，那里代码有问题

如果代码不出错，只能说明源表格本来就没有数据

还是不行。手机传了三次压缩包文件怎么看不见

[此贴子已经被作者于2024/2/23 14:56:05编辑过]

还是有点问题，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目240223.foxdb

麻烦蓝老师帮忙看看

不是有很明显的错误提示吗？列名都用错了

dr2("课程名称") = dr1(km)

蓝老师，我知道这句代码有问题，就是不知道怎么修改，请指教

不是这句代码的问题。请认真检查代码里的列名

蓝老师，代码执行后，弹出对话框提示，表中找不到第1组_八班级1班列,表中没课程名称的数据，抱歉，我也不知怎么修改？

主题：总分唯一排名代码问题