EDB操作加入多线程操作

EDB操作加入多线程操作例子。

编辑框1.加入文本 (到文本 (取现行时间 ()) ＋ “[开始建立记录]”, #换行符)
EDB_加空记录 (1000000)
EDB_到首记录 ()
.计次循环首 (EDB_取记录数 (), i)
EDB_写_文本 (1, 到文本 (i))
EDB_跳过 ()
.计次循环尾 ()
编辑框1.加入文本 (到文本 (取现行时间 ()) ＋ “[建立记录完成]”, #换行符)