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


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

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

帅哥哟,离线,有人找我吗?
jhxb8821
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/2/18 13:10:00 [只看该作者]

蓝老师,新年好
datacolchanged事件:
If e.DataCol.name = "编号列" Then
    e.DataRow("重复次数") = e.DataTable.comoute("count(编号列)", "编号列='" & e.newvalue & "'")
End If
'错误提示:comoute不是DataTable的成员,请教代码怎么修改

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


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/18 13:14:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/2/18 15:17:00 [只看该作者]

表A:有四列
检查批次        单位编号    等级评定     连续性统计
2023年第8批    A101        合格
2023年第9批    A101        合格       A101:连续2次[合格]
2023年第10批   A101        合格       A101:连续3次[合格]
2023年第11批   A102        不合格
2023年第12批   A102        不合格     A102:连续2次[不合格]

最近2次检查,单位编号和等级评定相同的,在最后一次连续性列里自动填入合成数据,比如“A101:连续2次[合格]”;最近3次检查,单位编号和等级评定相同的,在最后一次连续性列里自动填入合成数据,比如“A101:连续3次[合格]”
窗口按钮代码:
For i As Integer = 1 To Tables("表A").rows.count - 1
    Dim r As Row = Tables("表A").rows(i)
    Dim idx As Integer = Tables("表A").FindRow("单位编号='" & r("单位编号") & "' And 等级评定 ='" & r("等级评定") & "' and _sortkey <" & r("_sortkey"))
    If idx > -1 Then r("连续性统计") = r("单位编号") & ":连续" & Idx & "次[" & r("等级评定") & "]"
Next
蓝老师,帮忙看一下,自动填写

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


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/18 15:46:00 [只看该作者]

Tables("表A").sort = "单位编号,_sortkey"

dim n as integer = 1
dim r as row = Tables("表A").rows(0)
dim r2 as row
For i As Integer = 1 To Tables("表A").rows.count - 1
r2 = Tables("表A").rows(i)
if r("单位编号") = r2("单位编号") andalso r("等级评定") = r2("等级评定") then
n = n + 1
r2("连续性统计") = r2("单位编号") & ":连续" & n & "次[" & r2("等级评定") & "]"
else
n=1
end if
r = r2
next

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


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/2/18 17:39:00 [只看该作者]

谢谢蓝老师,祝老师新年快乐!

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


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望: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

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


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

Select Case e.DataCol.Name 
    Case "第一列", "第二列", "第三列", "第四列", "第五列"
        dim sum as integer
for each s as string in {"第一列", "第二列", "第三列", "第四列", "第五列"}
if e.DataRow(s) = "合格"
sum += 1
end if
e.DataRow("合格计数") = IIF(sum = 0,Nothing,sum)
End Select

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


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/2/22 18:07:00 [只看该作者]

完美解决,谢谢蓝老师

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


加好友 发短信
等级:三尾狐 帖子:618 积分:4560 威望: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("课表820").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")

老师请帮忙看看红色代码哪里出了问题?


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


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/23 13:36:00 [只看该作者]

"课表82竖0"数据是怎么样的?代码有什么问题?

 回到顶部
总数 137 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..14