以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]逻辑列判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82176)
--  作者：yupeng
--  发布时间：2016/3/13 9:32:00
--  [求助]逻辑列判断

表属性 DataColChanged事件

当注销列=True时

出货日期列=今日

请问这个判断怎么写。谢谢
--  作者：黄训良
--  发布时间：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
--  发布时间：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
--  发布时间：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
--  发布时间：2016/3/13 15:01:00
--  

谢谢