[求助]按日期筛选的代码如何修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]按日期筛选的代码如何修改？

共有2471人关注过本帖树形打印复制链接主题：[求助]按日期筛选的代码如何修改？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/10 19:08:00 [显示全部帖子]

筛选当日

If User.Group <> "销售开piao" AndAlso User.Group<>"发运地磅" Then
Tables("FAJHB").Filter="[发运日期]=#" & Date.Today & "# and [市场部] = '" & User.group & "'"
Else If User.Group = "销售开piao" AndAlso User.Group="发运地磅"
Tables("FAJHB").Filter="[发运日期]=#" & Date.Today & "#"
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/10 19:11:00 [显示全部帖子]

参考代码

Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim dt As DataTable=DataTables("FAJHB")
Dim filter As String = "1=1"
If User.Group <>"销售开piao" AndAlso User.Group <>"发运地磅" Then
    filter=" and 市场部 = '" & User.Group & "'"
End If
If stade.text >"" Then
    filter=" and 发运日期>=#" & stade.text & "#"
Else
    MessageBox.show("请选择起始日期!")
    Return
End If

If Endde.text>"" Then
    filter=filter & "and 发运日期<=#" & Endde.text & "#"
Else
    MessageBox.show("请选择结束日期!")
    Return
End If

dt.LoadFilter=filter
dt.Load()

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/12 0:50:00 [显示全部帖子]

你的数据库是sqlserver还是Access？

Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")

Dim dt As DataTable=DataTables("船运计划2")

Dim filter As String = "1=1"

If stade.text >"" Then

filter=" and 计划日期>=#" & stade.text & "#"

Else

MessageBox.show("请选择起始日期!")

Return

End If

If Endde.text>"" Then

filter=filter & " and 计划日期<=#" & Endde.text & "#"

Else

MessageBox.show("请选择结束日期!")

Return

End If

dt.LoadFilter=filter

dt.Load()

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/12 23:41:00 [显示全部帖子]

这样写

Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
Dim dt As DataTable=DataTables("船运计划2")
Dim filter As String = "1=1"
If stade.text >"" Then
    filter=filter & " And 计划日期>='" & stade.text & "'"
Else
    MessageBox.show("请选择起始日期!")
    Return
End If

If Endde.text>"" Then
    filter=filter & " and 计划日期<='" & Endde.text & "'"
Else
    MessageBox.show("请选择结束日期!")
    Return
End If
dt.LoadFilter=filter
dt.Load()

下一主题 >> << 上一主题

主题：[求助]按日期筛选的代码如何修改？