Foxtable(狐表) → 用户栏目 → 专家坐堂 → Datechanged事件求代码帮助！


  共有3151人关注过本帖树形打印复制链接

主题：Datechanged事件求代码帮助！
帅哥哟，离线，有人找我吗？
身份不明
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		Datechanged事件求代码帮助！  发帖心情 Post By：2014/5/15 14:07:00 [只看该作者]

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

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

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

当质检结果=让步放行或返工或作废，质检异常=是。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
身份不明
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/5/15 14:23:00 [只看该作者]

因为我想筛选出质量异常的订单！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询