以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 为什么这样合计很慢,日期越多就越慢,有没有其它方法快一点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175313) |
||||
-- 作者:qazlinle6 -- 发布时间:2022/2/28 21:48:00 -- 为什么这样合计很慢,日期越多就越慢,有没有其它方法快一点
为什么这样合计很慢,日期越多就越慢,有没有其它方法快一点
|
||||
-- 作者:有点蓝 -- 发布时间:2022/2/28 22:06:00 -- 直接使用sql统计 dim sql as strin = "select 店名,店铺地址,sum(提成实收金额) as (提成实收金额),sum(实收金额) as 实收金额 From 销售合计 where 日期 >= \'" & e.PostValues("开始") & "\' And 日期 <= \'" & e.PostValues("结束") & "\' And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' and 商品素金非素=\'非素\' group by 店名,店铺地址"
|
||||
-- 作者:qazlinle6 -- 发布时间:2022/3/1 9:42:00 -- dim sql as string = "select 店名,店铺地址,sum(提成实收金额) as (提成实收金额),sum(实收金额) as 实收金额 From 销售合计 where 日期 >= \'" & e.PostValues("开始") & "\' And 日期 <= \'" & e.PostValues("结束") & "\' And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' and 商品素金非素=\'非素\' group by 店名,店铺地址" .AddTitle("h2","<button style=\'width:100%;height: 100px;margin: 0px 0;background-color: #ffffff;border-style: none none solid none; border-bottom-width: 1px;border-color: #d0d0d0;\'> "& sql ("提成实收金额")&" </button>") 不是这样用的吗 |
||||
-- 作者:有点蓝 -- 发布时间:2022/3/1 9:54:00 -- 使用SQLcommand执行sql,根据返回的表格数据遍历生成数据 |
||||
-- 作者:qazlinle6 -- 发布时间:2022/3/1 10:08:00 -- 那么弄 |
||||
-- 作者:有点蓝 -- 发布时间:2022/3/1 10:35:00 -- 1楼自己发的代码里就有执行sql并遍历返回结果的代码 |
||||
-- 作者:qazlinle6 -- 发布时间:2022/3/1 11:18:00 -- 合在一起,不知道什么弄 |
||||
-- 作者:有点蓝 -- 发布时间:2022/3/1 11:46:00 -- 已经使用sql统计好了,就不需要使用compute,直接遍历即可 |
||||
-- 作者:qazlinle6 -- 发布时间:2022/3/1 12:00:00 -- 可以帮我弄一下不,我听起有点不懂 |
||||
-- 作者:有点蓝 -- 发布时间:2022/3/1 13:40:00 -- Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& e.Cookies("username") &"\' " ) Dim cmd As new SQLCommand cmd.C dim sql as strin = "select 店名,店铺地址,sum(提成实收金额) as (提成实收金额),sum(实收金额) as 实收金额 From 销售合计 where 日期 >= \'" & e.PostValues("开始") & "\' And 日期 <= \'" & e.PostValues("结束") & "\' And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 店名 + \',%\' and 商品素金非素=\'非素\' group by 店名,店铺地址" cmd.CommandText= sql Dim dt As DataTable = cmd.ExecuteReader With wb.AddArticle("","ar02") For Each dr as datarow in dt.datarows msgbox(dr("提成实收金额")) msgbox(dr("实收金额")) |