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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码

共有4090人关注过本帖树形打印复制链接主题：求代码

xjc620

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

求代码

Post By：2014/12/7 22:52:00 [只看该作者]

在窗口添加一个文本控件,想实现,如果

二保日期列年审日期列靠挂费日期列这三个列的日期全部>=当前日期时显示正常

二保日期列年审日期列靠挂费日期列这三个列其中如果二保日期<当前日期而其它两列都>=当前日期时显示漏保

二保日期列年审日期列靠挂费日期列这三个列其中如果二保日期和年审日期列<当前日期而其它列都>=当前日期时显示漏保｜漏审

如果三个列日期全部<=当前日期时显示漏保｜漏审｜漏费

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/7 22:56:00 [只看该作者]

代码大致这样写，具体请上传例子

Dim r As Row = Tables("表A").Current

If r("二保日期列") > Date.Today AndAlso r("年审日期列") > Date.Today AndAlso r("靠挂费日期列") > Date.Today Then

Else

End If

xjc620

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

Post By：2014/12/7 23:03:00 [只看该作者]

主窗口最下面的当前车辆: 这里显示

二保日期列营动证年审列靠挂费日期列这三个列的日期全部>=当前日期时显示正常

二保日期列营动证年审列靠挂费日期列这三个列其中如果二保日期<当前日期而其它两列都>=当前日期时显示漏保

二保日期列营动证年审列靠挂费日期列这三个列其中如果二保日期和年审日期列<当前日期而其它列都>=当前日期时显示漏保｜漏审

如果三个列日期全部<=当前日期时显示漏保｜漏审｜漏费

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

xjc620

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00

Post By：2014/12/7 23:28:00 [只看该作者]

另外版主帮我看下,怎么处理数据时这么慢啊,是不是因为添加的这些文本控件,都是有绑定的,在搜索数据时,这些文本控件一闪一闪的,处理数据特别慢,怎么办

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/7 23:40: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