reachtone兄，你经历正好说明Foxtable不仅是高效的，更是容易的，物有所值的。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → reachtone兄，你经历正好说明Foxtable不仅是高效的，更是容易的，物有所值的。

共有28522人关注过本帖树形打印复制链接主题：reachtone兄，你经历正好说明Foxtable不仅是高效的，更是容易的，物有所值的。

程兴刚

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2008/9/14 21:11:00 [显示全部帖子]

找个板凳，坐下再顶！

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2008/9/14 21:52:00 [显示全部帖子]

视个人电脑配置之不同，我06年的本本测试也仅需11秒，测试代码改为：

dim a as Date '
dim c as Date '
dim d as TimeSpan
a = Date.Now
Dim b As New CrossTableBuilder("统计表1",DataTables("成绩表"))
b.HGroups.AddDef("姓名")
b.VGroups.AddDef("班级")
b.Totals.AddDef("语文")
b.Build '生成统计表
c = Date.Now
d = c - a
Output.Show(d.Days & "天" & d.Hours & "小时" & d.Minutes & "分" & d.Seconds & "秒")

[此贴子已经被作者于2008-9-14 22:06:50编辑过]

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2008/9/15 0:01:00 [显示全部帖子]

以下是引用czy在2008-9-14 23:17:00的发言：
我这个31秒

Dim Start As Date = Date.Now()
Dim b As New CrossTableBuilder("统计表1",DataTables("成绩表"))
b.HGroups.AddDef("姓名")
b.VGroups.AddDef("班级")
b.Totals.AddDef("语文")
b.Totals.AddDef("数学")
b.Totals.AddDef("英语")
b.Totals.AddDef("体育")
b.Build
Maintable = Tables("统计表1")
Output.Show((Date.now-Start).TotalSeconds)

少了几行代码，优化的不错！

程兴刚

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2008/9/15 8:47:00 [显示全部帖子]

以下是引用狐狸爸爸在2008-9-15 8:11:00的发言：

呵呵，我最爽，我运行c版的代码是23秒。
以后买电脑带上这个程序，对于新的电脑，超过15秒就是不合格。

看来是真的，我的06年的本本37秒，不行来年就换！
双核的台式机在家，啥时候试试看看效果咋样！

下一主题 >> << 上一主题

主题：reachtone兄，你经历正好说明Foxtable不仅是高效的，更是容易的，物有所值的。