专家坐堂-表事件 currentchanged报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表事件 currentchanged报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61197)

--  作者：xjc620
--  发布时间：2014/12/8 19:38:00
--  表事件 currentchanged报错

表事件 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编辑过]

--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]

--  作者：有点甜
--  发布时间：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
--  发布时间：2014/12/10 10:08:00
--
还是报错,进项目报三次错,而且现在一点里的内容也报错

--  作者：有点甜
--  发布时间：2014/12/10 10:11:00
--
例子发上来。

--  作者：xjc620
--  发布时间：2014/12/10 10:24:00
--

以下内容是专门发给有点甜浏览
密码158998另外老师帮我看一下切换到车辆管理表时加载的太慢,能不能用代码方法解决.
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:日新车队管理系统.foxdb
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:日新车队数据库.rar

--  作者：有点甜
--  发布时间：2014/12/10 10:34:00
--

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

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

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:日新车队管理系统.foxdb

--  作者：xjc620
--  发布时间：2014/12/10 10:42:00
--
都晕了,每次系统重户后系统日期都变成2014.12.10这种格式,项目就报错,另外老师这个代码,如果在查找里查找一车辆车后再这个代码还是显示查找前那台车的状态,代码好像失效

--  作者：有点甜
--  发布时间：2014/12/10 10:50:00
--
回复9楼，我测试，状态会变动啊。