以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  filler 填充条件，排除满足某几种条件的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52389)
--  作者：jpg7
--  发布时间：2014/6/14 21:22:00
--  filler 填充条件，排除满足某几种条件的行

  Dim g As New GroupTableBuilder("非恒信日交货", DataTables("客户订单"))
                g.Groups.AddDef("交货日期", DateGroupEnum.Year, "年")
                g.Groups.AddDef("交货日期", "月")
                g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
                g.Totals.AddDef("统计")
                g.Totals.AddDef("数量")
                g.Filter = "[交货日期] > # " & Date.Today & "# And [订单编号] Like \'zqq*\' "
                g.Subtotal = True
                g.Build()
                MainTable = Tables("非恒信日交货")
                Tables("非恒信日交货").SetColVisibleWidth("年|50|月|25|日|20|统计|98|数量|98")

在条件中排除：同时满足客户=恒信，型号=125 ，的单子

 
--  作者：有点甜
--  发布时间：2014/6/15 11:03:00
--  
Dim g As New GroupTableBuilder("非恒信日交货", DataTables("客户订单"))
g.Groups.AddDef("交货日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("交货日期", "月")
g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("统计")
g.Totals.AddDef("数量")
g.Filter = "[交货日期] > # " & Date.Today & "# And [订单编号] Like \'zqq*\' and (客户 <> \'恒信\' or 型号 <> 125 )"
g.Subtotal = True
g.Build()
MainTable = Tables("非恒信日交货")
--  作者：JPG7
--  发布时间：2014/6/15 21:56:00
--  
以下是引用有点甜在2014-6-15 11:03:00的发言：
Dim g As New GroupTableBuilder("非恒信日交货", DataTables("客户订单"))
g.Groups.AddDef("交货日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("交货日期", "月")
g.Groups.AddDef("交货日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("统计")
g.Totals.AddDef("数量")
g.Filter = "[交货日期] > # " & Date.Today & "# And [订单编号] Like \'zqq*\' and (客户 <> \'恒信\' or 型号 <> 125 )"
g.Subtotal = True
g.Build()
MainTable = Tables("非恒信日交货")

谢谢老师，加个括号就行啊