以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码执行结果异常,不知哪里写错了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164857)

--  作者:huangfanzi
--  发布时间:2021/5/7 10:27:00
--  [求助]代码执行结果异常,不知哪里写错了
应付日期1 是日期型,应付金额1 是 双精度型
DataColChanging中代码

If e.DataCol.Name = "审核" AndAlso e.NewValue = True Then
    If (e.DataRow("应付日期1") <> Nothing AndAlso e.DataRow("应付金额1") = Nothing) OrElse (e.DataRow("应付日期1") = Nothing AndAlso e.DataRow("应付金额1") <> Nothing) Then
        MessageBox.Show("应付日期1与应付金额1必须都为空或都不为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel=True
    End If
End If

当我在应付日期1中录入一个正常的日期,在应付金额1中录入了 0 ,就一直提示MessageBox.Show中内容,只有不录入0,MessageBox.Show才不会被执行,0应该也不是Nothing啊,到底错哪里了,请老师解惑下,谢谢!

--  作者:有点蓝
--  发布时间:2021/5/7 10:42:00
--  
判断单元格是否为空请使用isnull:http://www.foxtable.com/webhelp/topics/0426.htm