专家坐堂-甜版这个好没有好办法Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  甜版这个好没有好办法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61762)

--  作者：xjc620
--  发布时间：2014/12/18 17:00:00
--  甜版这个好没有好办法

这个代码就是因为电脑系统日期格式不对,老是报错,电脑设置好了,一重启就变回原来的,经常报错
.NET Framework 版本：2.0.50727.6421
Foxtable 版本：2014.11.11.1
错误所在事件：日新车队,CurrentChanged
详细错误信息：
该字符串未被识别为有效的 DateTime。

代码
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(车号)")
Forms("日新车队").Controls("TextBox24").text = Tables("日新车队").Compute("count(营运证年审)", "营运证年审< #" & Date.Today & "#")
Forms("日新车队").Controls("TextBox25").text = Tables("日新车队").Compute("count(靠挂费日期)", "靠挂费日期 >= #" & Date.Today & "#")

Else
forms("日新车队").Controls("TextBox23").Text = Nothing
Forms("日新车队").Controls("TextBox22").text = Nothing
Forms("日新车队").Controls("TextBox21").text = Nothing
Forms("日新车队").Controls("TextBox20").text = Nothing
Forms("日新车队").Controls("TextBox24").text =Nothing
Forms("日新车队").Controls("TextBox25").text =Nothing
End If
End If

--  作者：有点甜
--  发布时间：2014/12/18 17:09:00
--

这样写

Format(Date.Today, "yyyy-MM-dd")

--  作者：xjc620
--  发布时间：2014/12/18 17:14:00
--
写到哪里啊,就这一句吗?我想就是不管电脑系统日期什么格式都不报错,能行吗?现在电脑日期格式是2014.1.1这种,改成2014-4-4这种之后经常自动变回以前那种格式就报错
[此贴子已经被作者于2014-12-18 17:15:13编辑过]

--  作者：有点甜
--  发布时间：2014/12/18 17:26:00
--

试试。

        Forms("日新车队").Controls("TextBox22").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 < #" & Format(Date.Today, "yyyy-MM-dd") & "#")

Forms("日新车队").Controls("TextBox21").text = DataTables("日新车队").Compute("count(二保日期)", "二保日期 >= #" & Format(Date.Today, "yyyy-MM-dd") & "#")

Forms("日新车队").Controls("TextBox20").text = DataTables("日新车队").Compute("count(车号)")

Forms("日新车队").Controls("TextBox24").text = Tables("日新车队").Compute("count(营运证年审)", "营运证年审< #" & Format(Date.Today, "yyyy-MM-dd") & "#")

Forms("日新车队").Controls("TextBox25").text = Tables("日新车队").Compute("count(靠挂费日期)", "靠挂费日期 >= #" & Format(Date.Today, "yyyy-MM-dd") & "#")

--  作者：xjc620
--  发布时间：2014/12/18 17:34:00
--
可以了,又解决一个大问题,谢了老师

--  作者：xjc620
--  发布时间：2014/12/18 18:04:00
--

以下内容是专门发给有点甜浏览
甜版,为什么在筛选完数据还是弹出错误,就是在左边目录树筛选和上面按月查询那里筛选时报错,可我已经把AfterFilter筛选事件里面的代码已经改了啊,帮忙看看是什么原因,密码158998
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:日新车队管理系统.foxdb
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:日新车队数据库.rar

--  作者：有点甜
--  发布时间：2014/12/18 18:13:00
--
目录树控件的筛选代码也要改。

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

这个年月的怎么改啊
Case "应维护车辆"
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Tables("日新车队").Filter = "二保日期 >= #" & d & "# and 二保日期 < #" & d.AddMonths(1) & "#"
Case "应年审车辆"
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Tables("日新车队").Filter = "营运证年审 >= #" & d & "# and 营运证年审 < #" & d.AddMonths(1) & "#"
Case "应年检车辆"
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Tables("日新车队").Filter = "行车证年检 >= #" & d & "# and 行车证年检 < #" & d.AddMonths(1) & "#"
Case "应缴费车辆"
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Tables("日新车队").Filter = "靠挂费日期 >= #" & d & "# and 靠挂费日期 < #" & d.AddMonths(1) & "#"

还有这个
e.Form.StopRedraw
Dim idx1 As Integer = e.Sender.Text.IndexOf("年")
Dim idx2 As Integer = e.Sender.Text.IndexOf("月")
If idx1 > -1 AndAlso idx2 > -1 Then
Dim d As Date = new Date(e.Sender.Text.SubString(0,4), e.Sender.Text.SubString(5,2), 1)
Tables("日新车队").Filter = "二保日期 >= #" & d & "# and 二保日期 < #" & d.AddMonths(1) & "#"
End If
e.Form.ResumeRedraw

[此贴子已经被作者于2014-12-18 18:22:17编辑过]

--  作者：有点甜
--  发布时间：2014/12/18 19:01:00
--

类似

Tables("日新车队").Filter = "二保日期 >= #" & Format(d, "yyyy-MM-dd") & "# and 二保日期 < #" & Format(d.AddMonths(1), "yyyy-MM-dd") & "#"