[求助]学习下一个技能，关于查询表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]学习下一个技能，关于查询表

共有2766人关注过本帖树形打印复制链接主题：[求助]学习下一个技能，关于查询表

有点甜

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

加好友

发短信

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

Post By：2018/11/1 16:11:00 [显示全部帖子]

1、看看

http://www.foxtable.com/webhelp/scr/1058.htm

2、导出数据，参考

http://www.foxtable.com/webhelp/scr/0559.htm

有点甜

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

加好友

发短信

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

Post By：2018/11/2 8:48:00 [显示全部帖子]

参考代码

Dim str As String = "201810"
Dim d1 As Date = new Date(left(str,4), right(str,2),1)
Dim d2 As Date = d1.AddMonths(1)
Dim filter As String = ""
filter = "下单日期 >= #" & d1 & "# and 下单日期 < #" & d2 & "#"
msgbox(filter)
Tables("查询订单").filter = filter

有点甜

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

加好友

发短信

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

Post By：2018/11/13 9:12:00 [显示全部帖子]

Dim Filter As String = "1=1"
With e.Form.Controls("cmbpm")
    If .Value <> Nothing Then
        Filter = filter & " And 品名 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("cmbgg")
    If .Value <> Nothing Then
        Filter = Filter & " and 规格 = '" & .Value & "'"
    End If
End With

Dim str As String = "201810"
Dim d1 As Date = new Date(left(str,4), right(str,2),1)
Dim d2 As Date = d1.AddMonths(1)
filter = filter & " and 下单日期 >= #" & d1 & "# and 下单日期 < #" & d2 & "#"
msgbox(filter)
Tables("查询订单").filter = filter

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

主题：[求助]学习下一个技能，关于查询表