Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共13 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:多条件判断

1楼
liujinshui 发表于:2012/2/9 6:44:00

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

你好:版主

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

2楼
狐狸爸爸 发表于:2012/2/9 8:49:00

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

 

3楼
liujinshui 发表于:2012/2/9 9:09:00

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

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

4楼
狐狸爸爸 发表于: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

5楼
liujinshui 发表于:2012/2/9 11:27:00

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


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

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

7楼
狐狸爸爸 发表于: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
8楼
liujinshui 发表于:2012/2/9 11:42:00
输入代码,没有结果显示
9楼
liujinshui 发表于:2012/2/9 11:45:00

出现以下错误:

 

 


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

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

共13 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 4 queries.