超级列表框导入到Access数据库的问题

caijobs

============源代码如下===========
.版本 2
.支持库 gregn50
.支持库 iext
.支持库 eDB
.程序集 窗口程序集1
.程序集变量 报表主对象, 报表
.程序集变量 报表_单号, 文本型
.子程序 _导入数据_被单击
.局部变量 i, 整数型
.局部变量 日期, 文本型
.局部变量 局_时间, 日期时间型
.' 如果真 (超级列表框1.取表项数 () ＝ 0)
    ' 信息框 (“请添加项目后进行提交！”, 64, )
    ' 返回 ()
.如果真结束
.' 如果真 (编辑框_数量.内容 ＝ “”)
    ' 信息框 (“数量不能为空！”, 64, )
    ' 返回 ()
.如果真结束
' 输出调试文本 (超级列表框1.取表项数 ())
.计次循环首 (超级列表框1.取表项数 (), i)
    记录集1.添加 ()
    ' 计价 ＝ 到整数 (编辑框_单价.内容) × 到整数 (编辑框_数量.内容)
    记录集1.写文本 (“顾客名称”, 编辑框_顾客.内容)
    记录集1.写文本 (“序号”, 超级列表框1.取标题 (i － 1, 0))
    记录集1.写文本 (“配件名称”, 超级列表框1.取标题 (i － 1, 1))
    记录集1.写文本 (“配件规格”, 超级列表框1.取标题 (i － 1, 2))
    记录集1.写文本 (“单位”, 超级列表框1.取标题 (i － 1, 3))
    记录集1.写整数 (“数量”, 到整数 (超级列表框1.取标题 (i － 1, 4)))
    记录集1.写整数 (“单价”, 到整数 (超级列表框1.取标题 (i － 1, 5)))
    记录集1.写整数 (“计价”, 到整数 (超级列表框1.取标题 (i － 1, 6)))
    ' 记录集1.写日期时间 (“日期”, 局_时间, 1)
    记录集1.写文本 (“单号”, 编辑框_单号.内容)
    记录集1.写文本 (“备注”, 超级列表框1.取标题 (i － 1, 7))
.计次循环尾 ()
======================================================================
出现了我第一次导入的时候经常少了一条数据，第二次导入就可以导入正确的数量。这是怎么回事求解？？

剩下我de孩子气

http://bbs.125.la/search.php?mod ... 6%C1%D0%B1%ED%BF%F2

caijobs

问题已解决！原来忽略了记录集.更新

天高任鸟飞

是的 要在循环尾之前加更新