| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于统计不执行问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146666) |
|
| -- 作者：lgz518 -- 发布时间：2020/2/28 18:59:00 -- 关于统计不执行问题 老师，窗口的表没绑定数据源，二个日期和三个的文本框做为统计条件： 参考书上的代码，运行代码，没报错，就是不统计，请帮忙处理，谢谢 \'自定义统计 Dim b As New GroupTableBuilder("统计表1",DataTables("订单登记明细")) b.Filter = "[交货日期] >= #StartDate# And [交货日期]<=# EndDate #" b.Filter ="客户 = \'" & e.Form.Controls("cmbCustomer").Value & "\'" b.Filter ="产品名称 = \'" & e.Form.Controls("cmbProduct").Value & "\'" b.Filter ="业务员 = \'" & e.Form.Controls("cmbEmployee").Value & "\'" b.Totals.AddDef("金额","订购金额") Tables("订单登记统计_Table2").DataSource = b.BuildDataSource() |
|
| -- 作者：sloyy -- 发布时间：2020/2/28 19:41:00 -- b.Filter = "[交货日期] >= #StartDate# And [交货日期]<=# EndDate #" 这句错了,你对比一下你第二第三句filter ,变量应该怎么写表达式 |
|
| -- 作者：有点蓝 -- 发布时间：2020/2/28 20:48:00 -- 生成条件的用法参考：http://www.foxtable.com/webhelp/topics/1058.htm |
|
| -- 作者：lgz518 -- 发布时间：2020/2/29 15:02:00 -- 老师，参考过您提供
|
|
| -- 作者：有点蓝 -- 发布时间：2020/2/29 15:15:00 -- 参考帮助的用法，更改控件名和列名就可以了。贴出您改后的代码 Dim Filter As String = "[交货日期] >= #" & StartDate & "# And [交货日期]<=#" & EndDate & "#" With e.Form.Controls("cmbCustomer")
If .Value IsNot Nothing Then Filter = " and 客户 = \'" & .Value & "\'" End If End With …… |
|
| -- 作者：lgz518 -- 发布时间：2020/2/29 17:12:00 -- Dim b As New GroupTableBuilder("统计表1",DataTables("订单登记明细")) \'Dim Filter As String = "[交货日期] >= #" & StartDate & "# And [交货日期]<=#" & EndDate & "#" Dim Filter As String With e.Form.Controls("cmbProduct") If .Value IsNot Nothing Then b.Filter = "产品名称 = \'" & .Value & "\'" End If End With With e.Form.Controls("cmbCustomer") If .Value IsNot Nothing Then If Filter > "" Then b.Filter = Filter & " And " End If b.Filter = Filter & "客户 = \'" & .Value & "\'" End If End With With e.Form.Controls("cmbEmployee") If .Value IsNot Nothing Then If Filter >"" Then b.Filter = Filter & " And " End If b.Filter = Filter & "业务员 = \'" & .Value & "\'" End If End With With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter >"" Then b.Filter = Filter & " And " End If Filter = Filter & "交货日期 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter >"" Then b.Filter = Filter & " And " End If b.Filter = Filter & "交货日期 <= #" & .Value & "#" End If End With b.Totals.AddDef("数量","订购数量") \'添加数量列用于统计 b.Totals.AddDef("金额","订购金额") \'添加数量列用于统计 Tables("订单登记统计_Table2").DataSource = b.BuildDataSource() 一样不能执行。
|
|
| -- 作者：有点蓝 -- 发布时间：2020/2/29 17:35:00 -- Dim Filter As String With e.Form.Controls("cmbProduct") If .Value IsNot Nothing Then Filter = "产品名称 = \'" & .Value & "\'" End If End With With e.Form.Controls("cmbCustomer") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "客户 = \'" & .Value & "\'" End If End With ……其它条件自己改正，不该改的不要乱改 Dim b As New GroupTableBuilder("统计表1",DataTables("订单登记明细")) b.Totals.AddDef("数量","订购数量") \'添加数量列用于统计 b.Totals.AddDef("金额","订购金额") \'添加数量列用于统计 b.Filter = Filter Tables("订单登记统计_Table2").DataSource = b.BuildDataSource() |
|
| -- 作者：lgz518 -- 发布时间：2020/3/2 16:32:00 -- 老师，没报错，但不执行 |
|
| -- 作者：有点蓝 -- 发布时间：2020/3/2 17:05:00 -- 请上传实例说明 |
|
| -- 作者：lgz518 -- 发布时间：2020/3/3 15:47:00 -- 老师，我上实例，也把之前请教的未解决问题，加上，都有代码，但就是执行不了，请您帮处理，谢谢！ 1.打开窗口自动显示当前月开始和结束时间？ 2.按自定义开始和结束时间，客户进行统计？ 3.查找批量修改？
|