动态增加多行并赋值，速度很慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态增加多行并赋值，速度很慢

共有1907人关注过本帖树形打印复制链接主题：动态增加多行并赋值，速度很慢

goldenfont

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

加好友

发短信

等级：小狐帖子：389 积分：3886 威望：0 精华：0 注册：2016/4/25 17:36:00

动态增加多行并赋值，速度很慢 发帖心情

Post By：2017/3/20 20:19:00 [只看该作者]

用代码增加1万条记录，每条记录赋值，每AddNew一条然后赋值，比较慢，有啥快的方法吗？

goldenfont

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

加好友

发短信

等级：小狐帖子：389 积分：3886 威望：0 精华：0 注册：2016/4/25 17:36:00

Post By：2017/3/20 20:22:00 [只看该作者]

StopRedraw和ResumeRedraw已使用的情况下

有点蓝

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

加好友

发短信

等级：超级版主帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/20 20:43:00 [只看该作者]

贴出你的完整代码

参考：http://www.foxtable.com/webhelp/scr/2225.htm

http://www.foxtable.com/webhelp/scr/1935.htm

goldenfont

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

加好友

发短信

等级：小狐帖子：389 积分：3886 威望：0 精华：0 注册：2016/4/25 17:36:00

Post By：2017/3/22 13:47:00 [只看该作者]

DataTables(tblName).StopRedraw

For i As Integer = 0 To max '一般这里是10000行数据

Dim dr As DataRow = DataTables(tblName).AddNew()

dr("固定位数") = digit

dr("校验位") = Functions.Execute("计算校验位",digit) '根据固定位数算出校验位

dr("合并显示") = digit & dr("校验位") '合并起来显示

dr("是否分配") = False

dr("是否禁用") = False

DataTables(tblName).ResumeRedraw

DataTables(tblName).Save() '增加完毕后保存表

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/22 14:54:00 [只看该作者]

Systemready = False
DataTables(tblName).StopRedraw
For i As Integer = 0 To max '一般这里是10000行数据
    Dim dr As DataRow = DataTables(tblName).AddNew()
    dr("固定位数") = digit
    dr("校验位") = Functions.Execute("计算校验位",digit) '根据固定位数算出校验位
    dr("合并显示") = digit & dr("校验位") '合并起来显示
    dr("是否分配") = False
    dr("是否禁用") = False
Next
DataTables(tblName).ResumeRedraw
msgbox("新增完毕")
DataTables(tblName).Save() '增加完毕后保存表
msgbox("保存完毕")
Systemready = True

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

主题：动态增加多行并赋值，速度很慢