Foxtable(狐表) → 用户栏目 → 专家坐堂 → 补充效率提升的另一种情况(有修正，从390秒提升到2秒，从2秒提升到不到1秒)


  共有19953人关注过本帖树形打印复制链接

主题：补充效率提升的另一种情况(有修正，从390秒提升到2秒，从2秒提升到不到1秒)
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		补充效率提升的另一种情况(有修正，从390秒提升到2秒，从2秒提升到不到1秒)  发帖心情 Post By：2010/12/9 10:51:00 [只看该作者]

您无权查看精华帖子
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
foxor
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：517 积分：4199 威望：0 精华：0 注册：2009/10/8 16:43:00 		  发帖心情 Post By：2010/12/9 10:55:00 [只看该作者]

好用，顶！
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2010/12/9 10:59:00 [只看该作者]

真给力，顶！

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2010/12/9 11:04:00 [只看该作者]

这个问题很有代表性，也是佐证代码效率最好的范例，建议将示例加到模板中，帮助配以说明，让大家一起受益。

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/12/9 11:38:00 [只看该作者]

呵呵，帮助加进去了，示例文件就没有必要了吧。

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/12/9 12:31:00 [只看该作者]

前一个代码执行时间：668.2183086

后一个代码执行时间：    3.9686992

 

比老大的慢了一倍了，电脑配置稍差些啊， 呵呵    。。。  但效果是相当明显的～～～

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/12/9 13:47:00 [只看该作者]

其实最优化的代码应该是，现在不到一秒了：

 

Dim s As Date = Date.Now()
Dim drs As List(of DataRow) = DataTables("表A").Select("", "项目, 日期")
drs(0)("累计支出") = drs(0)("支出")
For i As Integer = 1 To drs.Count - 1
    If drs(i)("项目") = drs(i - 1)("项目") Then
        drs(i)("累计支出") = drs(i-1)("累计支出") + drs(i)("支出")
    Else
        drs(i)("累计支出") = drs(i)("支出")
    End If
Next
Output.show("执行时间:" & (Date.Now -s).TotalSeconds)
 回到顶部
帅哥哟，离线，有人找我吗？
migold
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2010/12/9 13:55:00 [只看该作者]

太牛了！慢慢消化！建议加入帮助中放入示例

 回到顶部
帅哥哟，离线，有人找我吗？
kylin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级：狐精 帖子：3036 积分：19229 威望：0 精华：2 注册：2008/9/1 7:50:00 		  发帖心情 Post By：2010/12/9 14:15:00 [只看该作者]

以下是引用czy在2010-12-9 11:04:00的发言：
这个问题很有代表性，也是佐证代码效率最好的范例，建议将示例加到模板中，帮助配以说明，让大家一起受益。

支持，连同“令人目瞪口呆的效率差别(有修正)”一起编入示例模版中
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/12/9 14:16:00 [只看该作者]

以下是引用狐狸爸爸在2010-12-9 13:47:00的发言：

其实最优化的代码应该是，现在不到一秒了：

 

Dim s As Date = Date.Now()
Dim drs As List(of DataRow) = DataTables("表A").Select("", "项目, 日期")
drs(0)("累计支出") = drs(0)("支出")
For i As Integer = 1 To drs.Count - 1
    If drs(i)("项目") = drs(i - 1)("项目") Then
        drs(i)("累计支出") = drs(i-1)("累计支出") + drs(i)("支出")
    Else
        drs(i)("累计支出") = drs(i)("支出")
    End If
Next
Output.show("执行时间:" & (Date.Now -s).TotalSeconds)

这个更准确： 看图： 累计支出2 是上面最新代码计算的结果～～  


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

真是更快、更好、更强啦～～

[此贴子已经被作者于2010-12-9 14:23:57编辑过]
 回到顶部
总数 26 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询