以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个条件判断结果[求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52313)

--  作者:liutqj
--  发布时间:2014/6/13 9:33:00
--  多个条件判断结果[求助]
结论由下列条件构成:
1、年数大于等于5,集中大于等于120,合计大于等于240为合格 否则不合格
2、年数等于4,集中大于等于100,合计大于等于200为合格 否则不合格
3、年数等于3,集中大于等于80,合计大于等于160为合格 否则不合格
4、年数小于等于2,集中大于等于60,合计大于等于120为合格 否则不合格

--  作者:Bin
--  发布时间:2014/6/13 9:37:00
--  
if (e.datarow("年数") > 5 andalso e.datarow("集中") > 120 andalso e.datarow("合计") > 240) orelse (e.datarow("年数") > 4 andalso e.datarow("集中") > 100 andalso e.datarow("合计") > 200) orelse (e.datarow("年数") > 3 andalso e.datarow("集中") > 80 andalso e.datarow("合计") > 160) orelse (e.datarow("年数") > 2 andalso e.datarow("集中") > 60 andalso e.datarow("合计") > 120) then
    及格
else
   不及格
end if

--  作者:有点甜
--  发布时间:2014/6/13 9:40:00
--  

 

Dim dr As DataRow = e.DataRow
If dr("年龄") >= 5 Then
    If dr("集中") >= 120 AndAlso dr("合计") >= 240 Then
        msgbox("合格")
    Else
        msgbox("不合格")
    End If
Else If dr("年龄") = 4 Then
    If dr("集中") >= 80 AndAlso dr("合计") >= 160 Then
        msgbox("合格")
    Else
        msgbox("不合格")
    End If
Else If dr("年龄") = 3 Then
    If dr("集中") >= 60 AndAlso dr("合计") >= 120 Then
        msgbox("合格")
    Else
        msgbox("不合格")
    End If
Else If dr("年龄") <= 2 Then
    If dr("集中") >= 120 AndAlso dr("合计") >= 240 Then
        msgbox("合格")
    Else
        msgbox("不合格")
    End If
End If


--  作者:liutqj
--  发布时间:2014/6/13 11:03:00
--  
运行时显示有错误
--  作者:有点甜
--  发布时间:2014/6/13 11:04:00
--  
以下是引用liutqj在2014-6-13 11:03:00的发言:
运行时显示有错误

 

呃,你写到哪个事件里去?要写到Datacolchanged事件。

 

看2楼3楼代码


--  作者:liutqj
--  发布时间:2014/6/14 16:36:00
--  
如何将结果“合格”或“不合格”结果在表格的“审核情况”一列里显示出来,还望提供帮助
--  作者:Bin
--  发布时间:2014/6/14 16:39:00
--  
不明白你的意思,具体请上例子.并且描述清楚问题. 要怎么显示.
--  作者:liutqj
--  发布时间:2014/6/14 16:43:00
--  
我的附件传不上去
--  作者:Bin
--  发布时间:2014/6/14 16:47:00
--  
上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78


请尽量使用IE,谷歌,火狐等主流浏览器上传.  

使用谷歌浏览器必须要先输入一个以上的字符

上传后需要等文件代码出现才算成功!

--  作者:liutqj
--  发布时间:2014/6/14 17:01:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:样表图片.rar