1、看看

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

2、导出数据，参考

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

谢谢有点甜！我搞好了，见附件 窗口设计，能否帮忙优化一下，如果我筛选日期的时候不是按照 时间段来筛选，而是用 201810这样来筛选2018年10月，用什么办法？

谢谢！一直得到前辈的帮助，一直在进步。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

参考代码

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

感谢！

如果我增加一个查询条件,下面的代码该如何修改？

Dim Filter As String
With e.Form.Controls("cmbpm")
    If .Value IsNot Nothing Then
        Filter = "品名 = \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("cmbgg")
    If .Value IsNot Nothing Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "规格 = \'" & .Value & "\'"   
End With

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

Dim Filter As String = "1=1"
With e.Form.Controls("cmbpm")
    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