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

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

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