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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间加列名筛选

共有1549人关注过本帖树形打印复制链接主题：时间加列名筛选

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

时间加列名筛选 发帖心情

Post By：2016/11/20 21:56:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value

If d1 = Nothing Then d1 = Date.Today

Dim filter1 As String = ""

If e.Form.Controls("RadioButton1").Checked Then

filter1 = "发货_日期 = #" & d1 & "#"

ElseIf e.Form.Controls("RadioButton2").Checked Then

Dim w As Integer = d1.DayOfWeek '算出今天是星期几

Dim dt1 As Date = d1.AddDays(0 - w) '获取本周的第一天 ,星期一到星期天

Dim dt2 As Date = d1.AddDays(6 - w) '获取本周的最后一天

filter1 = "发货_日期 >= #" & dt1 & "# and 发货_日期 <= #" & dt2 & "#"

End If

'filter1 = filter1 & " And 目录_订单= Controls("ComboBox2").Text

Tables("订单").Filter = filter1

能帮忙看看这个吗？再加上目录_订单列和 ComboBox2 一样的内容

感谢感谢

oaok	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：六尾狐帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00	Post By：2016/11/20 22:04:00 [只看该作者] 用户已经被屏蔽

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/11/20 22:29:00 [只看该作者]

为什么是未声明呢？Controls

有点青

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

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/21 9:01:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
If d1 = Nothing Then d1 = Date.Today
Dim filter1 As String = "1=1"
If e.Form.Controls("RadioButton1").Checked Then
    filter1 = " and 发货_日期 = #" & d1 & "#"
ElseIf e.Form.Controls("RadioButton2").Checked Then
    Dim w As Integer = d1.DayOfWeek '算出今天是星期几
    Dim dt1 As Date = d1.AddDays(0 - w) '获取本周的第一天 ,星期一到星期天
    Dim dt2 As Date = d1.AddDays(6 - w) '获取本周的最后一天
    filter1 = " and 发货_日期 >= #" & dt1 & "# and 发货_日期 <= #" & dt2 & "#"
End If
If e.form.Controls("ComboBox2").Text > "" Then
    filter1 = filter1 & " And 目录_订单= '" & e.form.Controls("ComboBox2").Text & "'"
End If
Tables("订单").Filter = filter1

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

主题：时间加列名筛选