以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  速度太慢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51326)
--  作者：Lc
--  发布时间：2014/5/24 13:58:00
--  速度太慢

请帮优化代码,速度太慢


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.zip

[此贴子已经被作者于2014-5-24 14:00:11编辑过]
--  作者：lsy
--  发布时间：2014/5/24 16:39:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:缴费分析.table
--  作者：don
--  发布时间：2014/5/24 22:41:00
--  
Dim t2 As Table =e.Form.Controls("Table1").Table
Dim  SQL1,SQL2, ep1,ep2  As String

ep1= "sum(iif(缴费项目=\'餐费\',1,0)) As Wc ,sum(iif(缴费项目=\'车费\',1,0)) As js"
ep2  = "IIF(Wc = 0,\'\',\'√\') As 午餐 ,IIF(js = 0,\'\',\'√\') As  接送,"
ep2+ = "IIF(Wc+Js = 0,\'绿牌\',IIF(Wc + Js = 1,\'黄牌\',\'红牌\')) as 校牌颜色"

SQL1 = "select 学期,班级,学生姓名," & ep1 & " from {收费信息}"
SQL1+ = " Where 学期=\'2014年(春)\' Group by 学期,班级,学生姓名"
SQL2 = "Select 学期,班级,学生姓名 ," & ep2  & " From (" & SQL1 & ")"

t2.StopRedraw
t2.Fill(SQL2,"", True)
t2.ResumeRedraw


[此贴子已经被作者于2014-5-25 6:43:08编辑过]
--  作者：Lc
--  发布时间：2014/5/25 1:48:00
--  
谢谢
--  作者：jianjingmaoyi
--  发布时间：2014/5/25 7:59:00
--  
don 老大 写的这个代码出神入化
--  作者：Lc
--  发布时间：2014/5/30 21:23:00
--  老大,请把代码优化一下

老大,请把代码优化一下.谢谢!

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.zip
--  作者：有点甜
--  发布时间：2014/6/3 18:11:00
--  
 这种查询，无法优化的，除非你把表结构改了。
--  作者：Lc
--  发布时间：2014/6/4 10:55:00
--  

谢谢有点甜老师