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

明白了，不用LiKe语句了

r = .FindRow("[例07重复位置_编号列] = '" & mb & "'", .Position + 1, True)

[此贴子已经被作者于2024/3/11 15:01:31编辑过]

like的用法也一样，就是多2个%符号而已

r = .FindRow("[例07重复位置_编号列] Like '%" & mb.text & "%'", .Position + 1, True)

最主要的是要学会合成表达式的用法，这个帮助有空多看看：http://www.foxtable.com/webhelp/topics/1284.htm

谢谢老师手把手的教，又学到不少的东西

Select Case e.Col.Name

Case "身份证检验正确性"

If e.Row("身份证检验正确性") = True Then

Tables("表B").grid.cols("原身份证号码").style.forecolor = color.blue

Else

Tables("表B").grid.cols("原身份证号码").style.forecolor = color.red

End If

End Select

老师，帮忙看一下代码，怎么颜色标记不一致，错开一行。表是2行标题行

这种代码设置的是整列，和行有什么关系？

颜色建议到drawcell事件处理

Select Case e.Col.Name

Case "公民身份证号码"

If e.Row("身份证检验正确性") = True Then

e.Style = "已审核"

Else

e.Style = "问题"

End If

End Select

换个思路解决问题

'筛选后统计代码，下面代码正确

Dim txt As String = e.Form.Controls("楼幢号").Text

Dim tbl As Table = Tables("销控表")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

tbl.Filter = " 楼幢号 Like " & txt

End If

e.Form.Controls("Label1").Text = "本幢楼共有：" & DataTables("表A").Compute("count(楼幢号)", "楼幢号 Like " & txt) & "套"

e.Form.Controls("Label2").Text = "已安置：" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='已安置' ") & "套"

e.Form.Controls("Label3").Text = "未安置：" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='未安置'") & "套"

'我想再增加一个条件, 显示类别 = '0编号'，可是搞了半天还是没有做好，请叫老师如何修改下面代码？

e.Form.Controls("Label1").Text = "本幢楼共有：" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "显示类别 = '0编号'") & "套"

e.Form.Controls("Label2").Text = "已安置：" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='已安置'" And 显示类别 = '0编号'") & "套"

e.Form.Controls("Label3").Text = "未安置：" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='未安置'" And 显示类别 = '0编号'") & "套"

Dim txt As String = e.Form.Controls("楼幢号").Text

Dim tbl As Table = Tables("销控表")

Dim filter As String

If txt > "" Then

txt = "'%" & txt & "%'"

filter = " 楼幢号 Like " & txt

End If

tbl.Filter = filter

If filter > "" Then

filter = filter & " and "

End If

filter = filter & "显示类别 = '0编号'"

e.Form.Controls("Label1").Text = "本幢楼共有：" & DataTables("表A").Compute("count(楼幢号)", filter ) & "套"

……

非常好，感谢老师

'水平表转成垂直表，固定表采用数据填充的方法

Dim kms() As String = {"语文", "数学", "英语", "物理", "化学"}

For Each dr1 As DataRow In DataTables("Ⅱ成绩汇总表").DataRows '固定表

For Each km As String In kms

Dim dr2 As DataRow = DataTables("Ⅰ单科成绩统计").AddNew()

dr2("学期") = dr1("学期")

dr2("学校") = dr1("学校")

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

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

dr2("学号") = dr1("学号")

dr2("姓名") = dr1("姓名")

dr2("学科") = km

dr2("分数") = dr1(km)

MainTable = Tables("Ⅰ单科成绩统计")

'2个表都是固定表，转换后表里有空白数据行，请教老师进一步完善代码

[此贴子已经被作者于2024/3/20 15:02:41编辑过]

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