以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]find方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56398)
--  作者：lesliecheung912
--  发布时间：2014/9/4 14:32:00
--  [求助]find方法
以下find查询代码是否正确呢？为什么在“And [酒缸名称] =“后面都显示是灰色的呢？
dr = DataTables("酒缸分配明细表").Find("[分配单号] = \'"&r("分配单号")&"\' And [酒缸名称] = \'"&r("酒缸名称")&"\' and [酒缸型号] = \'"&r("酒缸型号")&"\'")
--  作者：Bin
--  发布时间：2014/9/4 14:34:00
--  
dr = DataTables("酒缸分配明细表").Find("[分配单号] = \'" & r("分配单号") & "\' And [酒缸名称] = \'" & r("酒缸名称") & "\' and [酒缸型号] = \'" & r("酒缸型号") & "\'")

注意一下空格
--  作者：lesliecheung912
--  发布时间：2014/9/4 14:38:00
--  
多谢！
--  作者：wlcycxy
--  发布时间：2015/1/20 8:54:00
--  

 

[此贴子已经被作者于2015-1-20 9:02:29编辑过]
--  作者：Bin
--  发布时间：2015/1/20 9:00:00
--  
dr1 = DataTables("考试设置").Find("[学科]= \'"&dr("学科") & "\' And [学科]= \'" & dr("年级") & "\' And [期数]= \'" & dr("期数") & "\'")
Select Case e.DataCol.Name
    Case "年级","班级","期数","学科"
        If dr.IsNull("学科") = False Then
            dr("最高分") = dt.Compute("Max(" & dr("学科") & "_成绩)","[班级排名] =\'"& dr("班级排名")&"\'")
            dr("最低分") = dt.Compute("Min(" & dr("学科") & "_成绩)","[班级排名] =\'"& dr("班级排名")&"\'")
            dr("平均分_成绩") = dt.Compute("Avg(" & dr("学科") & "_成绩)","[班级排名] =\'"& dr("班级排名")&"\'")
            if dr1 isnot nothing then
            dr("及格_人数") =dt.Compute("Count(姓名)", "[班级排名]=\'"& dr("班级排名")&"\'"&"  And  "& dr("学科") & "_成绩"&">=" &dr1("及格分"))
            end if
            dr("良好_人数") =dt.Compute("Count(姓名)", "[班级排名]=\'"& dr("班级排名")&"\'"&"  And  "& dr("学科") & "_成绩"&">=" &"70")
            dr("优秀_人数") =dt.Compute("Count(姓名)", "[班级排名]=\'"& dr("班级排名")&"\'"&"  And  "& dr("学科") & "_成绩"&">=" &"85")
            
        End If
End Select
--  作者：wlcycxy
--  发布时间：2015/1/20 9:05:00
--  
谢谢，发现自己代码设置有误