改了下代码又报错了,打开项目后连续弹出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编辑过]
加好友 
发短信
Post By：2014/12/8 19:38:00 [显示全部帖子]
