以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列的行比较  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100202)
--  作者：cqlistone
--  发布时间：2017/5/6 17:31:00
--  列的行比较
样本01上限下限数据
1501050
2402050
3301210
420105
510512



你好
如果 数据列 > 上限 或 数据列 < 下限 则所有样本最终判定结果为 不合格
如果 上限 < 数据列 < 下限  则所有样本最终判定结果为 合格
怎么写代码
--  作者：有点色
--  发布时间：2017/5/7 15:41:00
--  

Select Case e.DataCol.Name
    Case "上限", "下限", "数据"
        If e.DataRow("数据") >= e.DataRow("下限") AndAlso e.DataRow("数据") <= e.DataRow("上限") Then
            msgbox("及格")
        Else
            msgbox("不及格")
        End If
End Select