|
求助,易语言做了个数据录入的,一共3个人同时用,共用一个表,会出现偶尔数据录入缺失的情况, 用下面的代码做了100次循环,同时开2个,一起循环,也会出现几个数据没录入到数据库,
是代码有问题还是其他原因,能帮我优化下吗? 小型数据库ACCESS够用了,大型数据库有点麻烦,
.版本 2
.支持库 eDB
.支持库 eGrid
.支持库 spec
记录集1.置连接 (数据库连接1)
行数 = 高级表格1.行数
记录集1.打开 (“表1”, #数据表名, )
.计次循环首 (行数, 行)
处理事件 ()
.如果真 (行 > 1) ' 行=1,第一行,表中为0行,即标题行,不写入数据库中
记录集1.添加 ()
记录集1.写文本 (“单位编号”, 高级表格1.取数据 (行 - 1, 0))
记录集1.写文本 (“客户单位”, 高级表格1.取数据 (行 - 1, 1))
记录集1.写文本 (“主名称”, 高级表格1.取数据 (行 - 1, 2))
记录集1.写文本 (“次级名称”, 高级表格1.取数据 (行 - 1, 3))
记录集1.写文本 (“二级名称”, 高级表格1.取数据 (行 - 1, 4))
记录集1.写文本 (“三级名称”, 高级表格1.取数据 (行 - 1, 5))
记录集1.写文本 (“计量单位”, 高级表格1.取数据 (行 - 1, 6))
记录集1.写文本 (“数量”, 高级表格1.取数据 (行 - 1, 7))
记录集1.写文本 (“单价”, 高级表格1.取数据 (行 - 1, 8))
记录集1.写文本 (“金额”, 高级表格1.取数据 (行 - 1, 9))
记录集1.写文本 (“日期”, 高级表格1.取数据 (行 - 1, 10))
标签2.标题 = “保存总数:” + 到文本 (行 + 1) + “条”
.如果真结束
.计次循环尾 ()
标签2.标题 = “保存总数:” + 到文本 (行数 - 1) + “条”
记录集1.更新 ()
记录集1.关闭 ()
|
|