如何判断日期是否为空? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断日期是否为空?

共有2125人关注过本帖树形打印复制链接主题：如何判断日期是否为空?

happyft

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1916 积分：17116 威望：0 精华：0 注册：2014/7/29 19:09:00

如何判断日期是否为空? 发帖心情

Post By：2016/7/21 20:21:00 [显示全部帖子]

Dim minD As Date = e.Table.DataTable.Compute("Min(计划开始)", "计划开始 IS NOT NULL")

Dim maxD As Date = e.Table.DataTable.Compute("Max(计划结束)","计划结束 IS NOT NULL")

要如何判断minD,maxD是否为空，下面的写法总提示出错

If minD Is not null And maxD Is not null Then

If minD Isnot nothing And maxD Isnot null Then

谢谢！

HappyFt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1916 积分：17116 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2016/7/22 11:50:00 [显示全部帖子]

drawcell的代码：

If DrawGannt Then

If Tables(e.Table.form.name & "_主表").Rows.count > 0 Then '计划表中没有数据时会出错

Dim r As Row = Tables(e.Table.form.name & "_主表").Rows(e.Row.Index)

' If r("计划开始") <> Nothing And r("计划结束") <> Nothing Then

Dim dt1,dt2,dt3 As Date

dt1 = r("计划开始")

dt2 = r("计划结束")

dt3 = r("需求日期")

。。。。。

end if

上面的代码执行到红色那行时会提示出错：从字符串“计划开始”到类型date的转换无效

加上日期不为空的判断也同样出错，是什么原因导致这个出错？

谢谢！

HappyFt

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1916 积分：17116 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2016/7/22 12:07:00 [显示全部帖子]

用isnull判断同样出错，计划开始和结束都是日期类型，不管是否有值drawcell中应该都不会出错

主题：如何判断日期是否为空?