以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动筛选数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106487)

--  作者:裴保民
--  发布时间:2017/9/10 1:18: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 & " 人"
End If

 

 

老师这句代码哪有问题?怎么如果数据里有符合条件的数据时显示正常,如果没有符合条件的数据是窗体表则显示所有的数据,看看原因在哪?



图片点击可在新窗口打开查看此主题相关图片如下:66.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:67.png
图片点击可在新窗口打开查看



还有如果数据库中客户表中没有数据时会弹出一下错误提示框:


图片点击可在新窗口打开查看此主题相关图片如下:76.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:77.png
图片点击可在新窗口打开查看


 

 

 

[此贴子已经被作者于2017/9/10 8:21:14编辑过]

--  作者:有点甜
--  发布时间:2017/9/10 13:15:00
--  

CurrentChange事件,顶部加入代码

 

If e.Table.Current Is Nothing Then Return

[此贴子已经被作者于2017/9/10 15:26:38编辑过]

--  作者:peibaomin
--  发布时间:2017/9/10 14:30:00
--  

CurrentTableChanged事件已经有一下代码

If CurrentTable.Name ="提醒窗体_Table1" Or CurrentTable.Name ="提醒窗体_Table2" Then
    ContextMenus("Cell").Items("UnFilter").Enabled = False
   ContextMenus("Empty").Items("UnFilter").Enabled = False
Else
    ContextMenus("Cell").Items("UnFilter").Enabled = True
    ContextMenus("Empty").Items("UnFilter").enabled = True
End If

 

 

 运行后出现一下错误

 

 

 

 



此主题相关图片如下:669.png
按此在新窗口浏览图片

此主题相关图片如下:897.png
按此在新窗口浏览图片
[此贴子已经被作者于2017/9/10 14:31:04编辑过]

--  作者:有点甜
--  发布时间:2017/9/10 15:27:00
--  

CurrentChange事件,顶部加入代码

 

If e.Table.Current Is Nothing Then Return


--  作者:peibaomin
--  发布时间:2017/9/10 16:34:00
--  

老师我试了还是不行显示所有数据
图片点击可在新窗口打开查看此主题相关图片如下:bx.png
图片点击可在新窗口打开查看

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:9999.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/10 16:37:12编辑过]

--  作者:有点甜
--  发布时间: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

--  作者:peibaomin
--  发布时间:2017/9/10 17:13:00
--  

谢谢老师,已经解决。

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


--  作者:有点甜
--  发布时间:2017/9/10 17:15:00
--  
以下是引用peibaomin在2017/9/10 17:13:00的发言:

谢谢老师,已经解决。

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

 

1=2是一个条件表达式,也就是永远为假的意思。不满足条件,自然显示的是空白。


--  作者:peibaomin
--  发布时间:2017/9/10 17:20:00
--  
谢谢甜老师