以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Datechanged事件求代码帮助！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50921)
--  作者：身份不明
--  发布时间：2014/5/15 14:07:00
--  Datechanged事件求代码帮助！

如果只有2列，分别是“质检结果”和“质量异常”其中“质量异常”是逻辑列。

质检结果为空时，质检异常=空

当质检结果=合格入库，质检异常=否

当质检结果=让步放行或返工或作废，质检异常=是。
--  作者：Bin
--  发布时间：2014/5/15 14:17:00
--  
为什么多出一个 "质检异常" 列来?

if e.datacol.name="质检结果" then
     if e.datarow.isnull("质检结果") then
            e.datarow("质检异常")=nothing
     else if e.datarow("质检结果")= "合格入库" then
            e.datarow("质检异常")=false
     else if e.datarow(("质检结果")= "让步放行" orelse e.datarow(("质检结果")= "返工"  orelse e.datarow(("质检结果")= "作废" then
           e.datarow("质检异常")=true
     end if
end if
--  作者：lsy
--  发布时间：2014/5/15 14:22:00
--  
If e.DataCol.Name = "质检结果" Then
    e.DataRow("质量异常") = (e.DataRow.IsNull(e.DataCol) = False AndAlso e.DataRow(e.DataCol) <> "合格入库")
End If
--  作者：身份不明
--  发布时间：2014/5/15 14:23:00
--  
因为我想筛选出质量异常的订单！