.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