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


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

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

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/3/11 14:55:00 [只看该作者]

明白了,不用LiKe语句了

r = .FindRow("[例07重复位置_编号列] = '" & mb & "'", .Position + 1, True)
[此贴子已经被作者于2024/3/11 15:01:31编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  112楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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

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

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/3/11 16:33:00 [只看该作者]

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

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


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

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行标题行

 回到顶部
帅哥,在线噢!
有点蓝
  115楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

颜色建议到drawcell事件处理

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/3/14 12:40:00 [只看该作者]

Select Case e.Col.Name
    Case "公民身份证号码"
        If e.Row("身份证检验正确性") = True Then
            e.Style = "已审核" 
        Else
           e.Style = "问题" 
        End If
End Select
换个思路解决问题

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


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

'筛选后统计代码,下面代码正确
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编号'") & "套"

 回到顶部
帅哥,在线噢!
有点蓝
  118楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106927 积分:543854 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/19 16:03:00 [只看该作者]

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 ) & "套"
……

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/3/19 16:44:00 [只看该作者]

非常好,感谢老师

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


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

'水平表转成垂直表,固定表采用数据填充的方法
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)
    Next
Next
MainTable = Tables("Ⅰ单科成绩统计")    
 '2个表都是固定表,转换后表里有空白数据行,请教老师进一步完善代码
[此贴子已经被作者于2024/3/20 15:02:41编辑过]

 回到顶部