Foxtable(狐表)用户栏目专家坐堂 → [求助]逻辑列判断


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

主题:[求助]逻辑列判断

帅哥哟,离线,有人找我吗?
yupeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:2927 威望:0 精华:0 注册:2015/4/23 19:53:00
[求助]逻辑列判断  发帖心情 Post By:2016/3/13 9:32:00 [只看该作者]

表属性 DataColChanged事件

当注销列=True时

出货日期列=今日

请问这个判断怎么写。谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2016/3/13 9:51:00 [只看该作者]

If e.DataCol.Name = "注销列" Then
    If e.DataRow("注销列") = True Then
        e.DataRow("出货日期") = Date.Today()
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
yupeng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:2927 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2016/3/13 13:23:00 [只看该作者]

If e.DataCol.Name = "裁片工艺_加工厂" Then
    Dim nms() As String = {"裁片工艺_单价","裁片工艺_负责人","裁片工艺_地址","裁片工艺_手机","裁片工艺_银行资料","裁片工艺_发货日期","裁片工艺_完成日期"}
    If e.DataRow.Isnull("裁片工艺_加工厂") Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    End If
End If

 

亲 以上是判断空值  请问如果判断有值怎么写代码

 

当裁片工艺_加工厂列有值时  裁片工艺_发货日期=今日

 

If e.DataCol.Name = "裁片工艺_加工厂"  false Then  这是这样写的,出错了。


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33951 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2016/3/13 14:05:00 [只看该作者]

If e.DataRow.Isnull("裁片工艺_加工厂") = false Then


If e.DataRow.Isnull("裁片工艺_加工厂") Then
    For Each nm As String In nms
        e.DataRow(nm) = Nothing
    Next
Else
    e.DataRow("裁片工艺_发货日期") = Today
End If

 回到顶部
帅哥哟,离线,有人找我吗?
yupeng
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:2927 威望:0 精华:0 注册:2015/4/23 19:53:00
  发帖心情 Post By:2016/3/13 15:01:00 [只看该作者]

谢谢


 回到顶部