- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问这个多条件判断的代码该如何写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49186)
-- 发布时间：2014/4/13 21:02:00
-- 请问这个多条件判断的代码该如何写？
请大神帮助
如我有一表，含有A,B,C,D,E,F（逻辑判断列）四列
如果：A不为空，则E=及格
A,B都不为空，则E=中
A,B,C都不为空，则E=良
A,B,C,D不为空，则E=优，且F（打勾）
谢谢
-- 发布时间：2014/4/13 21:08:00
--
http://www.foxtable.com/help/topics/0102.htm
看这里的“IIF”
（泛提泛答）
[此贴子已经被作者于2014-4-13 21:08:47编辑过]
-- 发布时间：2014/4/13 21:16:00
--
编写datacolchanged事件
Select Case e.DataCol.name
Case "A", "B", "C", "D"
If e.DataRow.isnull("A") = False Then
If e.DataRow.isnull("B") = False Then
If e.DataRow.isnull("C") = False Then
If e.DataRow.isnull("D") = False Then
e.DataRow("E") = "优"
e.DataRow("F") = True
Else
e.DataRow("E") = "良"
End If
Else
e.DataRow("E") = "中"
End If
Else
e.DataRow("E") = "及格"
End If
Else
e.DataRow("E") = Nothing
End If
End Select
[此贴子已经被作者于2014-4-13 21:16:53编辑过]
-- 发布时间：2014/4/13 21:18:00
--
感谢，感谢，我试试先
-- 发布时间：2014/4/13 21:20:00
--
谢谢，是得系统地学习一下
-- 发布时间：2014/4/14 8:13:00
--
Select e.DataCol.Name
Case "A","B","C","D"
Dim s1() As String = {"优","良","中","及格"}
Dim s2() As String = {"D","C","B","A"}
For i As Integer = 0 To s1.Length - 1
If e.DataRow.IsNull(s2(i)) = False Then
e.DataRow("E") = s1(i)
Exit For
End If
Next
If e.DataRow.IsNull(s2(0)) = False Then
e.DataRow("F") = True
End If
End Select
-- 发布时间：2014/5/22 10:31:00
--
专家您好，已经按照您的提示进行了代码编辑，但还是无法“E”列也就是实例中“钢瓶状态”的变化，请问有什么别的原因吗？谢谢上例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:boc库存及订单管理项目.zip |
-- 发布时间：2014/5/22 10:33:00
--
哪张表，哪个事件，什么问题？
-- 发布时间：2014/5/22 10:42:00
--
不好意思专家，是入库明细表， datacolchanged事件
举例：“采购入库日期”不为空时，“钢瓶状态” = “采购入库”；“销售出库日期”不为空时，"钢瓶状态" = “销售出库”
就是钢瓶状态的变化是因为事件触发而引起的，事件就是“采购入库”的时间和“销售出库”的时间空与否
陈述完毕，谢谢
-- 发布时间：2014/5/22 10:43:00
--
但现在采购时间有了，状态是有变化，但销售时间赋值后状态没有相应地变化为“销售出库”