以文本方式查看主题

-  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=175313)

--  作者:qazlinle6
--  发布时间:2022/2/28 21:48:00
--  为什么这样合计很慢,日期越多就越慢,有没有其它方法快一点
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt



为什么这样合计很慢,日期越多就越慢,有没有其它方法快一点

--  作者:有点蓝
--  发布时间: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("实收金额"))