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

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

共有7612人关注过本帖树形打印复制链接主题：总分唯一排名代码问题

jhxb8821

小大 51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：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

加好友

发短信

等级：超级版主帖子：112009 积分：570217 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/2/18 13:14:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0393.htm

compute

jhxb8821

小大 53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：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("等级评定") & "]"

蓝老师，帮忙看一下，自动填写

有点蓝

小大 54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112009 积分：570217 威望：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

jhxb8821

小大 55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/2/18 17:39:00 [只看该作者]

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

jhxb8821

小大 56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：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

加好友

发短信

等级：超级版主帖子：112009 积分：570217 威望：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

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/2/22 18:07:00 [只看该作者]

完美解决，谢谢蓝老师

jhxb8821

小大 59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：892 积分：6153 威望：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)

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

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

有点蓝

小大 60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112009 积分：570217 威望：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

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