- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]到“date”的转换无效是怎么回事？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145677)
-- 发布时间：2020/2/4 15:35:00
-- [求助]到“date”的转换无效是怎么回事？？
此主题相关图片如下：企业微信截图_15808015068763.png
Dim bh As String
Dim dr As DataRow
bh = e.Form.Controls("txtline").value
dr = DataTables("活动表").SQLFind("[活动名称] = \'" & bh & "\'")
If dr Is Nothing Then \'如果没找到重复的活动名称,保存新增行
CurrentTable.Current.save() 在此出现报错窗口，求教大神怎么回事？
DataTables("活动表").load()
[此贴子已经被作者于2020/2/4 15:40:59编辑过]
-- 发布时间：2020/2/4 16:00:00
--
提示是空字符串无法进行日期转换。勾选“显示详细信息”，看是哪个事件的问题，完整代码发上来看看。
表保存事件有没有代码？
-- 发布时间：2020/2/4 16:15:00
--
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2016.3.27.1
错误所在事件：窗口,编辑活动,btnadd,Click
详细错误信息：
从字符串“”到类型“Date”的转换无效。
确认新增按钮的代码如下：
If e.Form.Controls("txtline").value ="" Then
MessageBox.Show("活动线路名称不能为空!")
e.Form.Controls("txtline").Select()
ElseIf e.Form.Controls("dtpb").value ="" Then
MessageBox.Show("活动开始时间不能为空!")
e.Form.Controls("dtpb").Select()
Else
Dim bh As String
Dim dr As DataRow
bh = e.Form.Controls("txtline").value
dr = DataTables("活动表").SQLFind("[活动名称] = \'" & bh & "\'")
If dr Is Nothing Then \'如果没找到重复的活动名称,保存新增行
CurrentTable.Current.save()
DataTables("活动表").load()
CurrentTable.Sort = "开始时间 DESC"
Forms("增加活动").Close
DataTables("活动表").AllowEdit= False
Else
CurrentTable.Current.Delete() \'否则,删除新增行
MessageBox.show("活动线路名称重复,新增失败!")
e.Form.Controls("txtline").Select()
End If
End If
-- 发布时间：2020/2/4 16:25:00
--
ElseIf e.Form.Controls("dtpb").value = nothing Then