Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甜版这个好没有好办法


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

主题：甜版这个好没有好办法
帅哥哟，离线，有人找我吗？
xjc620
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		甜版这个好没有好办法  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这样写

 

Format(Date.Today, "yyyy-MM-dd")
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

写到哪里啊,就这一句吗?我想就是不管电脑系统日期什么格式都不报错,能行吗?现在电脑日期格式是2014.1.1这种,改成2014-4-4这种之后经常自动变回以前那种格式就报错
[此贴子已经被作者于2014-12-18 17:15:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以了,又解决一个大问题,谢了老师

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


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

以下内容是专门发给有点甜浏览
甜版,为什么在筛选完数据还是弹出错误,就是在左边目录树筛选和上面按月查询那里筛选时报错,可我已经把AfterFilter筛选事件里面的代码已经改了啊,帮忙看看是什么原因,密码158998
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队数据库.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 目录树控件的筛选代码也要改。

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


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 类似

 

 Tables("日新车队").Filter = "二保日期 >= #" & Format(d, "yyyy-MM-dd") & "# and 二保日期 < #" & Format(d.AddMonths(1), "yyyy-MM-dd") & "#" 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询