以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多条件判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16307)

--  作者:liujinshui
--  发布时间:2012/2/9 6:44:00
--  多条件判断

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table

你好:版主

如何实现根据不同的车间、不同的产品,要求的合格率指标也不相同。如何写出“不合格”、“合格”、“良好”、“优秀”的判断表达式来。


--  作者:狐狸爸爸
--  发布时间:2012/2/9 8:49:00
--  

怎样才算合格、不合格、良好、优秀?

 


--  作者:liujinshui
--  发布时间:2012/2/9 9:09:00
--  

比如:一车间A产品成品率>93%为合格,>96%为良好、>98%为优秀.

        二车间B产品成品率>90%为合格,>94%为良好、>96%为优秀。


--  作者:狐狸爸爸
--  发布时间:2012/2/9 10:42:00
--  

设置在表A的DataColChanged事件:

 

Select Case e.DataCol.name
    Case "成品率"
        If e.DataRow("车间") = "一车间" Then
            If e.DataRow("成品率") > 0.98 Then
                e.DataRow("是否达标") = "优秀"
            ElseIf e.DataRow("成品率") > 0.96 Then
                e.DataRow("是否达标") = "良好"
            ElseIf e.DataRow("成品率") > 0.93 Then
                e.DataRow("是否达标") = "合格"
            Else
                e.DataRow("是否达标") = "不合格"
            End If
        ElseIf e.DataRow("车间") = "二车间"
            If e.DataRow("成品率") > 0.96 Then
                e.DataRow("是否达标") = "优秀"
            ElseIf e.DataRow("成品率") > 0.94 Then
                e.DataRow("是否达标") = "良好"
            ElseIf e.DataRow("成品率") > 0.90 Then
                e.DataRow("是否达标") = "合格"
            Else
                e.DataRow("是否达标") = "不合格"
            End If
End Select


--  作者:liujinshui
--  发布时间:2012/2/9 11:27:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:编译错误.jpg
图片点击可在新窗口打开查看
出现以上错误,不知道什么原因?
--  作者:liujinshui
--  发布时间:2012/2/9 11:30:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:编译错误2.jpg
图片点击可在新窗口打开查看

对源代码也出现类似的错误。


--  作者:狐狸爸爸
--  发布时间:2012/2/9 11:32:00
--  
Select Case e.DataCol.name
    Case "成品率"
        If e.DataRow("车间") = "一车间" Then
            If e.DataRow("成品率") > 0.98 Then
                e.DataRow("是否达标") = "优秀"
            ElseIf e.DataRow("成品率") > 0.96 Then
                e.DataRow("是否达标") = "良好"
            ElseIf e.DataRow("成品率") > 0.93 Then
                e.DataRow("是否达标") = "合格"
            Else
                e.DataRow("是否达标") = "不合格"
            End If
        ElseIf e.DataRow("车间") = "二车间"
            If e.DataRow("成品率") > 0.96 Then
                e.DataRow("是否达标") = "优秀"
            ElseIf e.DataRow("成品率") > 0.94 Then
                e.DataRow("是否达标") = "良好"
            ElseIf e.DataRow("成品率") > 0.90 Then
                e.DataRow("是否达标") = "合格"
            Else
                e.DataRow("是否达标") = "不合格"
            End If
        End If
End Select

--  作者:liujinshui
--  发布时间:2012/2/9 11:42:00
--  
输入代码,没有结果显示
--  作者:liujinshui
--  发布时间:2012/2/9 11:45:00
--  

出现以下错误:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:错误信息.jpg
图片点击可在新窗口打开查看


--  作者:狐狸爸爸
--  发布时间:2012/2/9 11:48:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table