Foxtable(狐表) → 用户栏目 → 专家坐堂 → 总分唯一排名代码问题


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

主题：总分唯一排名代码问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/18 17:39:00 [显示全部帖子]

谢谢蓝老师，祝老师新年快乐！

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		多列字符计数问题  发帖心情 Post By：2024/2/22 11:14:00 [显示全部帖子]

 Select Case e.DataCol.Name 
    Case "第一列", "第二列", "第三列", "第四列", "第五列"
        If e.NewValue = "合格" Then
           ' 比如有3个合格，计算公式怎么写？
            e.DataRow("合格计数") = 3 
        Else
            e.DataRow("合格计数") = Nothing
        End If 
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/22 18:07:00 [显示全部帖子]

完美解决，谢谢蓝老师

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		多头水平表转成垂直表问题  发帖心情 Post By：2024/2/23 13:21:00 [显示全部帖子]

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班"}

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("时间")

        dr2("教研班组") = km

        'dr2("年级班级") = dr1("年级班级")

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

    Next

Next

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

老师请帮忙看看红色代码哪里出了问题？
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/23 13:47:00 [显示全部帖子]

这是多层表头："第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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/23 14:20:00 [显示全部帖子]

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)
    Next
Next
MainTable = Tables("转换成垂直表1")
蓝老师，课程名称数据没出来，那里代码有问题
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/23 14:51:00 [显示全部帖子]

还是不行。手机传了三次压缩包文件怎么看不见
[此贴子已经被作者于2024/2/23 14:56:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/23 17:29:00 [显示全部帖子]

还是有点问题，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目240223.foxdb

麻烦蓝老师帮忙看看

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/23 17:49:00 [显示全部帖子]

dr2("课程名称") = dr1(km) 
蓝老师，我知道这句代码有问题，就是不知道怎么修改，请指教
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/2/24 17:21:00 [显示全部帖子]

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

 回到顶部
总数 80 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 6 次数据查询