以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期错误问题,麻烦专家看下(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26055)

--  作者:halflive
--  发布时间:2012/11/23 10:43:00
--  日期错误问题,麻烦专家看下(已解决)

Dim yq As WinForm.DateTimePicker = e.Form.Controls("延期")

 
If yq.Value = "" Then
    MessageBox.Show("延期时间无效或为空,请重新输入!","提示",MessageBoxButtons.OK)
    Return
Else
    Tables("会员信息表").Current("有效期") =  yq.Value
End If

 

代码运行后出现如下错误,麻烦专家看看,问题出再哪里?

 

图片点击可在新窗口打开查看
[此贴子已经被作者于2012-11-23 11:06:20编辑过]

--  作者:halflive
--  发布时间:2012/11/23 11:06:00
--  

自己解决了。

If yq.Value = "" Then

改成 If yq.Value is nothing Then

 

就可以了