求助ACCESS字段求和问题

恶魔中的死神

按钮事件中加入下图代码，点击按钮后将数据库中库存字段内所有商品编码等于组合框9.内容条件相等的库存相加。我这样写，请问那里写错了。点击按钮什么都不显示。请高手帮助。

[e]  .版本 2

.版本 2
.支持库 xplib
.支持库 eDB
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 数据1, 文本型
.局部变量 数据2, 文本型
.局部变量 数据3, 文本型


XP风格 (#蓝色风格)



记录集_新建入库单.关闭 ()
数据库连接_新建入库单.关闭 ()

.子程序 _新建入库单_被选择
' 载入 (入库_新建入库单, _启动窗口, 真)
选择夹1.现行子夹 ＝ 1

.子程序 _工具条1_被单击
.参数 按钮索引, 整数型
.判断开始 (按钮索引 ＝ 0)
    选择夹1.现行子夹 ＝ 1  ' 新建入库单
.默认
.判断结束
.判断开始 (按钮索引 ＝ 2)
    选择夹1.现行子夹 ＝ 2  ' 供应商信息录入
.默认
.判断结束

.判断开始 (按钮索引 ＝ 4)
    选择夹1.现行子夹 ＝ 3  ' 耗材信息资料录入
.默认
.判断结束

.子程序 _按钮2_被单击
连续赋值 (“”, 组合框9.内容, 组合框1.内容, 组合框2.内容, 组合框3.内容, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 组合框8.内容)
选择夹1.现行子夹 ＝ 0

.子程序 _按钮3_被单击

.子程序 _供应商信息录入_被选择
选择夹1.现行子夹 ＝ 2  ' 供应商信息录入

.子程序 _按钮4_被单击
选择夹1.现行子夹 ＝ 0

.子程序 _按钮6_被单击
选择夹1.现行子夹 ＝ 0
.子程序 _按钮1_被单击
数据库连接_新建入库单.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集_新建入库单.置连接 (数据库连接_新建入库单)
记录集_新建入库单.打开 (“库存信息”, #数据表名)

.如果 (组合框9.内容 ≠ “” 且 组合框1.内容 ≠ “” 且 组合框2.内容 ≠ “” 且 组合框3.内容 ≠ “” 且 编辑框1.内容 ≠ “” 且 编辑框3.内容 ≠ “” 且 组合框8.内容 ≠ “”)
    数据库连接_新建入库单.执行SQL (“INSERT INTO 库存信息(商品编码,供应商,品牌,商品名称,型号,单价,库存,备注) VALUES('” ＋ 组合框9.内容 ＋ “','” ＋ 组合框1.内容 ＋ “','” ＋ 组合框2.内容 ＋ “','” ＋ 组合框3.内容 ＋ “','” ＋ 组合框8.内容 ＋ “','” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “')”)
    .如果真 (信息框 (“数据添加成功！”, 0, “提示信息”) ＝ #确认钮)
        连续赋值 (“”, 组合框9.内容, 组合框1.内容, 组合框2.内容, 组合框3.内容, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 组合框8.内容)
    .如果真结束


.否则
    信息框 (“请将入库单信息填写完毕！”, #错误图标, “提示信息”)
.如果结束

调试输出 (_启动窗口.数据库连接_新建入库单.最后错误)
记录集_新建入库单.关闭 ()
数据库连接_新建入库单.关闭 ()
.子程序 _按钮5_被单击
数据库连接_新建商品资料.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集_新建商品资料.置连接 (数据库连接_新建商品资料)
记录集_新建商品资料.打开 (“商品资料信息”, #数据表名)
.如果 (编辑框12.内容 ≠ “” 且 组合框7.内容 ≠ “” 且 组合框4.内容 ≠ “” 且 组合框5.内容 ≠ “” 且 编辑框13.内容 ≠ “” 且 组合框6.内容 ≠ “”)
    数据库连接_新建商品资料.执行SQL (“INSERT INTO 商品资料信息(商品编码,供应商,品牌,商品名称,型号,单价,备注) VALUES('” ＋ 编辑框13.内容 ＋ “','” ＋ 组合框7.内容 ＋ “','” ＋ 组合框6.内容 ＋ “','” ＋ 组合框5.内容 ＋ “','” ＋ 组合框4.内容 ＋ “','” ＋ 编辑框12.内容 ＋ “','” ＋ 编辑框11.内容 ＋ “')”)
    .如果真 (信息框 (“商品资料添加成功。”, 0, “提示信息”) ＝ #确认钮)
        连续赋值 (“”, 编辑框11.内容, 编辑框12.内容, 组合框7.内容, 组合框4.内容, 组合框5.内容, 编辑框13.内容, 组合框6.内容)
    .如果真结束



.否则
    信息框 (“请将商品资料信息填写完整！”, #错误图标, “提示信息”)
.如果结束


.子程序 _按钮7_被单击
.局部变量 当前库存, 文本型

数据库连接_新建入库单.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集_新建入库单.置连接 (数据库连接_新建入库单)
' 记录集_新建入库单.打开 (“库存信息”, #数据表名)

记录集_新建入库单.打开 (“SELECT SUM(库存) FROM 库存信息 WHERE 商品编码='” ＋ 组合框9.内容 ＋ “'”, 1)
.计次循环首 (记录集_新建入库单.记录数量, )
    记录集_新建入库单.读文本 (“库存”, 当前库存)
    记录集_新建入库单.到下一条 ()
.计次循环尾 ()
编辑框4.内容 ＝ 当前库存
调试输出 (_启动窗口.数据库连接_新建入库单.最后错误)

记录集_新建入库单.关闭 ()
数据库连接_新建入库单.关闭 ()

.子程序 _按钮8_被单击
.局部变量 c_供应商, 文本型
.局部变量 c_品牌, 文本型
.局部变量 c_商品名称, 文本型
.局部变量 c_型号, 文本型
.局部变量 c_单价, 文本型
数据库连接_新建入库单.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集_新建入库单.置连接 (数据库连接_新建入库单)
.如果真 (记录集_新建入库单.打开 (“SELECT 商品编码 FROM 商品资料信息 WHERE 商品编码='” ＋ 组合框9.内容 ＋ “'”, 1))
    记录集_新建入库单.关闭 ()
    记录集_新建入库单.打开 (“SELECT 商品编码,供应商,品牌,商品名称,型号,单价 FROM 库存信息 WHERE 商品编码='” ＋ 组合框9.内容 ＋ “'”, 1)
    .计次循环首 (记录集_新建入库单.记录数量, )
        记录集_新建入库单.读文本 (“商品名称”, c_商品名称)
        记录集_新建入库单.读文本 (“供应商”, c_供应商)
        记录集_新建入库单.读文本 (“品牌”, c_品牌)
        记录集_新建入库单.读文本 (“型号”, c_型号)
        记录集_新建入库单.读文本 (“单价”, c_单价)
        记录集_新建入库单.到下一条 ()
    .计次循环尾 ()

    组合框3.内容 ＝ c_商品名称
    组合框1.内容 ＝ c_供应商
    组合框2.内容 ＝ c_品牌
    组合框8.内容 ＝ c_型号
    编辑框1.内容 ＝ c_单价

.如果真结束



调试输出 (_启动窗口.数据库连接_新建入库单.最后错误)

记录集_新建入库单.关闭 ()
数据库连接_新建入库单.关闭 ()
[/e]

已经习惯

{:3_230:}
我只学了点ACCESS。
要是和易语言综合起来我还真不会。。

恶魔中的死神

那位高手可以帮忙解决一下啊？小弟感激不尽。

恶魔中的死神

{:3_231:}{:3_231:}

恶魔中的死神

{:3_226:}{:3_226:}那位高手可以帮助解决一下啊？

爬上墙等红杏

那位高手可以帮助解决一下啊？