Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件 currentchanged报错


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

主题：表事件 currentchanged报错
帅哥哟，离线，有人找我吗？
xjc620
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		表事件 currentchanged报错  发帖心情 Post By：2014/12/8 19:38:00 [只看该作者]

 表事件 currentchanged

 

If forms("日新车队").opened Then
    Dim r As Row = e.Table.Current
    If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
        forms("日新车队").Controls("TextBox23").Text = "正常"
    Else     If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
        forms("日新车队").Controls("TextBox23").Text = "漏保"
    Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
        forms("日新车队").Controls("TextBox23").Text = "漏保|漏审"
    Else
        forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费"
    End If
End If


报错
.NET Framework 版本：2.0.50727.6421
Foxtable 版本：2014.11.11.1
错误所在事件：日新车队,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。


[此贴子已经被作者于2014-12-10 8:19:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/8 19:40:00 [只看该作者]

If forms("日新车队").opened Then
    Dim r As Row = e.Table.Current
    If r IsNot Nothing Then
        If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "正常"
        Else     If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审"
        Else
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费"
        End If
    Else
        forms("日新车队").Controls("TextBox23").Text = Nothing
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/10 2:16:00 [只看该作者]

改了下代码又报错了,打开项目后连续弹出4次报错窗口,另外如果在表中查找其它数据后再点当前行,这个代码会失效.显示结果永远都停留在查找前,多次查找后也是不会按代码显示.

If forms("日新车队").opened Then
    Dim r As Row = e.Table.Current
    If r IsNot Nothing Then
        If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "正常"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏审|漏费"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏审"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏费"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏费" 
        Else
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费"
        End If
    Else
        forms("日新车队").Controls("TextBox23").Text = Nothing
    End If
End If
Forms("日新车队").Controls("TextBox22").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 < #" & Date.Today & "#")
Forms("日新车队").Controls("TextBox21").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 >= #" & Date.Today & "#")
Forms("日新车队").Controls("TextBox20").text = DataTables("日新车队").Compute("count(车号)")



.NET Framework 版本：2.0.50727.6421
Foxtable 版本：2014.11.11.1
错误所在事件：日新车队,CurrentChanged
详细错误信息：
该字符串未被识别为有效的 DateTime。


[此贴子已经被作者于2014-12-10 8:19:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/10 9:11:00 [只看该作者]

If forms("日新车队").opened Then
    Dim r As Row = e.Table.Current
    If r IsNot Nothing Then
        If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "正常"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏审|漏费"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") < Date.Today AndAlso r("靠挂费日期") >= Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏审"
        Else If r("二保日期") >= Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏费"
        Else If r("二保日期") < Date.Today AndAlso r("营运证年审") >= Date.Today AndAlso r("靠挂费日期") < Date.Today Then
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏费"
        Else
            forms("日新车队").Controls("TextBox23").Text = "漏保|漏审|漏费"
        End If
        Forms("日新车队").Controls("TextBox22").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 < #" & Date.Today & "#")
        Forms("日新车队").Controls("TextBox21").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 >= #" & Date.Today & "#")
        Forms("日新车队").Controls("TextBox20").text = DataTables("日新车队").Compute("count(车号)")
       
    Else
        forms("日新车队").Controls("TextBox23").Text = Nothing
        Forms("日新车队").Controls("TextBox22").text = Nothing
        Forms("日新车队").Controls("TextBox21").text = Nothing
        Forms("日新车队").Controls("TextBox20").text = Nothing
    End If
End If

 
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/10 10:08:00 [只看该作者]

还是报错,进项目报三次错,而且现在一点里的内容也报错

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/10 10:11:00 [只看该作者]

  例子发上来。

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/10 10:24:00 [只看该作者]

以下内容是专门发给有点甜浏览
密码158998另外老师帮我看一下切换到车辆管理表时加载的太慢,能不能用代码方法解决.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队数据库.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/10 10:34:00 [只看该作者]

  报错是因为你电脑日期格式设置错了，要设置成短日期，不要带有星期几那种

 

http://jingyan.baidu.com/article/fcb5aff789824fedaa4a712e.html

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/10 10:42:00 [只看该作者]

都晕了,每次系统重户后系统日期都变成2014.12.10这种格式,项目就报错,另外老师这个代码,如果在查找里查找一车辆车后再这个代码还是显示查找前那台车的状态,代码好像失效

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/10 10:50:00 [只看该作者]

 回复9楼，我测试，状态会变动啊。

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询