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

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

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

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

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

Post By：2014/12/8 9:09:00 [显示全部帖子]

闪是正常的，因为你在TextChanged设置了筛选代码，筛选肯定会闪的。

要不你就不要写TextChanged代码，输入完毕以后，敲回车也能查询

有点甜

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

加好友

发短信

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

Post By：2014/12/8 14:16:00 [显示全部帖子]

代码这样写看看

If e.KeyCode = Keys.Enter Then
    e.Form.StopRedraw
    Dim filter As String = "1=2"
    For Each dc As Col In CurrentTable.Cols
        filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
    Next
    CurrentTable.Select(-1, -1)
    CurrentTable.Filter = filter
    e.Form.ResumeRedraw
End If