Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动筛选数据


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

主题：自动筛选数据
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 13:15:00 [显示全部帖子]

CurrentChange事件，顶部加入代码

 

If e.Table.Current Is Nothing Then Return

[此贴子已经被作者于2017/9/10 15:26:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 15:27:00 [显示全部帖子]

CurrentChange事件，顶部加入代码

 

If e.Table.Current Is Nothing Then Return
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 17:04:00 [显示全部帖子]

Dim  ids As String
Dim n As Integer = 10  '未来天数,含今天,所以实际是未来7天
For Each dr As DataRow In DataTables("客户资料").DataRows
    Dim rq As String = dr("出生日期")
    If rq.Length = 11 Then
        Dim  Cdt As Date = new Date(rq.SubString(0,4), rq.SubString(5,2), rq.SubString(8,2))
        Dim  dt1 As  New  Date(Date.Today.Year,Cdt.Month,Cdt.Day)
        Dim  dt2 As   New  Date(Date.Today.AddDays(n).Year,Cdt.Month,Cdt.Day)
        If (dt1 >=  Date.Today AndAlso  dt1 <  Date.Today.AddDays(n)) OrElse (dt2 >=  Date.Today AndAlso  dt2 <  Date.Today.AddDays(n)) Then
            ids =  ids  &  ","  &  dr("_Identify")
        Else
            Tables("提醒窗体_Table2").DataSource =""
        End If
    End If
Next
If  ids >  "" Then
    ids =  ids.Trim(",")
    Tables("提醒窗体_Table2").filter =  "[_Identify] In (" & ids &")"
    Tables("提醒窗体_Table2").SetColVisibleWidth(Tables("客户资料").GetColVisibleWidth())
    e.Form.Controls("shengrijijiangdaoqidekehu").text = Tables("提醒窗体_Table2").Rows.Count & " 人"
Else
    msgbox("没有生日的人")
    Tables("提醒窗体_Table2").filter = "1=2"
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 17:15:00 [显示全部帖子]

以下是引用peibaomin在2017/9/10 17:13:00的发言：

谢谢老师，已经解决。

"1=2" 是什么意思呢？

 

1=2是一个条件表达式，也就是永远为假的意思。不满足条件，自然显示的是空白。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询