Foxtable(狐表)用户栏目专家坐堂 → 无法在 System.DateTime 和 System.String 上执行“=”操作。”


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

主题:无法在 System.DateTime 和 System.String 上执行“=”操作。”

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 8:39:00 [显示全部帖子]

上面是【错误所在事件:表,基础数据表,DataColChanged】的全部代码吗?

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 15:02:00 [显示全部帖子]

看不出什么,调试一下:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 15:15:00 [显示全部帖子]

关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。

调试就是每一句代码后加上提示框,看哪一个提示框出不来
    Case "日期"
        Dim dr As DataRow = DataTables("mryxsj").Find(" 日期 = '" & e.OldValue & "'")
msgbox(1)
        If dr Is Nothing Then
msgbox(2)
            dr = DataTables("mryxsj").AddNew()
msgbox(3)
            dr("日期") = e.DataRow("日期")
msgbox(4)
……

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 16:08:00 [显示全部帖子]

判断一下

if e.OldValue  <> nothing then
 Dim dr As DataRow = DataTables("mryxsj").Find(" 日期 = '" & e.OldValue & "'")
……

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/21 16:32:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "日期"
        Dim dr As DataRow 
If e.OldValue  <> Nothing Then
dr = DataTables("mryxsj").Find(" 日期 = '" & e.OldValue & "'")
endif
        If dr Is Nothing Then
            dr = DataTables("mryxsj").AddNew()
            dr("日期") = e.DataRow("日期")
            dr("大兴机场_实际出港架次") = e.DataRow("大兴机场_实际出港架次")
            dr("大兴机场_实际进港架次") = e.DataRow("大兴机场_实际进港架次")
            dr("大兴机场_小时高峰架次") = e.DataRow("大兴机场_小时高峰架次")

 回到顶部