- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]学习下一个技能，关于查询表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126941)
-- 发布时间：2018/11/1 13:25:00
-- [求助]学习下一个技能，关于查询表
我想做一个窗口，上面是查询条件，下面是查询表。按照条件查询出来的结果导出到excel。
-- 发布时间：2018/11/1 16:11:00
--
1、看看
http://www.foxtable.com/webhelp/scr/1058.htm
2、导出数据，参考
http://www.foxtable.com/webhelp/scr/0559.htm
-- 发布时间：2018/11/2 8:01:00
--
谢谢有点甜！我搞好了，见附件 窗口设计，能否帮忙优化一下，如果我筛选日期的时候不是按照 时间段来筛选，而是用 201810这样来筛选2018年10月，用什么办法？
谢谢！一直得到前辈的帮助，一直在进步。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.table |
-- 发布时间：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
-- 发布时间：2018/11/5 22:02:00
--
感谢！
-- 发布时间：2018/11/13 8:03:00
--
如果我增加一个查询条件,下面的代码该如何修改？
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 |
-- 发布时间：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
-- 发布时间：2018/11/13 20:56:00
--
赞