Foxtable(狐表)用户栏目专家坐堂 → 时间巨无霸,谁可优化.


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

主题:时间巨无霸,谁可优化.

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/9/14 14:51:00 [显示全部帖子]

字符型的你用sum???

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/9/14 15:40:00 [显示全部帖子]

这个也不要1秒钟:

Dim a,b As Double
Dim cmd As New SQLCommand
Dim dt As datatable
cmd.Connection Name = "1"
cmd.CommandText = "SELECT * From {表A}"
dt = cmd.ExecuteReader()

a=now.second
For Each dr As Row In Tables("表C")
    dr("第一列") = dt.Compute("Sum(第一列)", "第二列 = '" & dr("第二列") & "'")
Next
b=now.second
messagebox.show(b & " " & a & "  " & b-a)

[此贴子已经被作者于2010-9-14 15:40:46编辑过]

 回到顶部