- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 创建一个按钮来查找最近七天建的单，如果同一个字段的订单行数量超过3条的把所有的这个字段显示出来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60841)
-- 发布时间：2014/12/2 11:27:00
-- 创建一个按钮来查找最近七天建的单，如果同一个字段的订单行数量超过3条的把所有的这个字段显示出来
创建一个按钮来查找最近七天建的单，如果同一个字段的订单行数量超过3条的把所有的这个字段显示出来，按钮双击语法：
Dim dt As Date= Date.Today.AddDays(-7)
DataTables("拍单表").LoadFilter = " [字段] In (Select [字段] from (Select [字段],count([字段]) As 计数 from {拍单表} group by [字段] where [接单日期] <=dt) where 计数>=3) "
DataTables("拍单表").Load()
提示错误：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:拍客系统.foxdb |
-- 发布时间：2014/12/2 11:33:00
--
DataTables("拍单表").LoadFilter = " [字段] In (Select [字段] from (Select [字段],count([字段]) As 计数 from {拍单表} group by [字段] where [接单日期] >=#" & dt & "# and [接单日期] <= #" & date.today & "#) where 计数>=3) "
-- 发布时间：2014/12/2 11:38:00
--
Dim dt As Date= Date.Today.AddDays(-7)
DataTables("拍单表").LoadFilter = " [旺旺号] In (Select [旺旺号] from {拍单表} where [接单日期] >=#" & dt & "# and [接单日期] <= #" & Date.today & "# group by [旺旺号] having count(*)>=3) "
DataTables("拍单表").Load()
-- 发布时间：2014/12/2 12:00:00
--
如果符合条件的话只想弹出一个框口，把符合条件的旺旺号字段显示出来，而不是把行显示出来呢
-- 发布时间：2014/12/2 12:04:00
--
Dim d As Date= Date.Today.AddDays(-7)
Dim cmd As new SQLCommand
cmd.CommandText = "Select [旺旺号] from {拍单表} where [接单日期] >=#" & d & "# and [接单日期] <= #" & Date.today & "# group by [旺旺号] having count(*)>=3"
Dim dt As DataTable = cmd.ExecuteReader
msgbox(dt.GetComboListString("旺旺号"))
-- 发布时间：2014/12/2 12:04:00
--
谢谢
-- 发布时间：2014/12/2 12:12:00
--
不行哦
-- 发布时间：2014/12/2 14:11:00
--
测试没问题啊。报什么错
如果是外部数据源，参考 http://www.foxtable.com/help/topics/2344.htm