- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45878)
-- 发布时间：2014/2/12 17:51:00
-- 求助
出现问题
此主题相关图片如下：qq截图20140212174822.png
有的界面涉及日期，但没有这个错误，用的是rq.value获取日期内容并将其插入到表中
-- 发布时间：2014/2/12 17:53:00
--
原因是没有值.
建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm
先找出是哪一行出错，然后分析原因，搞不定，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。
-- 发布时间：2014/2/12 17:57:00
--
Dim htmc As WinForm.TextBox = e.Form.Controls("合同名称")
Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")
Dim lxrq As WinForm.DateTimePicker = e.Form.Controls("立项日期")
Dim spzt As WinForm.TextBox = e.Form.Controls("审批状态")
Dim txr As WinForm.TextBox = e.Form.Controls("填写人")
Dim xmjd As WinForm.TextBox = e.Form.Controls("项目阶段")
Dim xmms As WinForm.TextBox = e.Form.Controls("项目描述")
Dim xmmc As WinForm.TextBox = e.Form.Controls("项目名称")
Dim xmsyr As WinForm.TextBox = e.Form.Controls("项目所有人")
Output.Show(0)
Dim HasError As Boolean
If xmmc.Value = "" Then
e.Form.Controls("项目名称").Error = "必须输入项目名称!"
HasError = True
Else
e.Form.Controls("项目名称").Error = ""
End If
If khmc.Value = "" Then
e.Form.Controls("合同名称").Error = "必须选取合同名称!"
HasError = True
Else
e.Form.Controls("合同名称").Error = ""
End If
If lxrq.Value = "" Then
e.Form.Controls("立项日期").Error = "必须输入立项日期!"
HasError = True
Else
e.Form.Controls("立项日期").Error = ""
End If
If xmsyr.Value = "" Then
e.Form.Controls("项目所有人").Error = "必须填写项目所有人!"
HasError = True
Else
e.Form.Controls("项目所有人").Error = ""
End If
Output.Show(1)
If HasError = False Then \'如果没有输入错误,则保存
Dim pr As DataRow = DataTables("项目").AddNew
pr("项目名称") = xmmc.Value
pr("客户名称") = khmc.Value
pr("合同名称") = htmc.Value
pr("项目阶段") = xmjd.Value
pr("立项日期") = lxrq.Value
pr("审批状态") = spzt.Value
pr("填写人") = txr.Value
pr("项目所有人") = xmsyr.Value
pr("项目描述") = xmms.Value
Forms("立项").Close
Forms("项目").Show
End If
-- 发布时间：2014/2/12 17:59:00
--
如果不是DateTimePicker,而是TextBox的话，如果你没有输入值，或者输入的值不是日期格式，就会出现这样的提示哦。
改一下代码：
if e.form.Controls("xxx").Value IsNot Nothing then
Dim s As String = e.form.Controls("xxx").Value
Dim v As Date
if Double.TryParse(s, v) then
tables("yyy").Current("日期") = v
end if
End if
http://www.foxtable.com/help/topics/0324.htm