Foxtable(狐表)用户栏目专家坐堂 → [求助]到“date”的转换无效是怎么回事??


  共有4011人关注过本帖树形打印复制链接

主题:[求助]到“date”的转换无效是怎么回事??

帅哥哟,离线,有人找我吗?
shenhq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
[求助]到“date”的转换无效是怎么回事??  发帖心情 Post By:2020/2/4 15:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/4 16:00:00 [只看该作者]

提示是空字符串无法进行日期转换。勾选“显示详细信息”,看是哪个事件的问题,完整代码发上来看看。

表保存事件有没有代码?

 回到顶部
帅哥哟,离线,有人找我吗?
shenhq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
  发帖心情 Post By: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


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/4 16:25:00 [只看该作者]

ElseIf e.Form.Controls("dtpb").value = nothing Then

 回到顶部