求大神指导 目前只能插入 不能更新 cha询句柄 = 数据库_全局. cha询 (“insert into 总数据库模块,产品ID” + 编辑框_ID.内容 )如果 (cha询句柄 > 0 )到首行 (cha询句柄 )读字段值 (cha询句柄, “入库数量”, 入库数量 )释放记录集 (cha询句柄 )执行结果_全局 = 数据库_全局. 执行 (“insert into 总数据库模块 Set 产品ID=” + 编辑框_ID.内容 + “入库数量” + 到文本 (到整数 (入库数量 ) + 到整数 (编辑框_数量.内容 )), )如果真 (执行结果_全局 = 假)数据库_全局. 回滚事务 ()信息框 (“产品入库失败”, 0, “提示”, )返回 () sql_全局 = “insert into 总数据库模块(入库单号,产品ID,产品名称,产品库存,产品单位,备注)values(?,?,?,?,?,?)”执行结果_全局 = 数据库_全局. 执行 (sql_全局, 入库单号, 编辑框_ID.内容, 编辑框_名称.内容, 编辑框_数量.内容, 组合框_单位.内容, 编辑框_备注.内容 )如果真 (执行结果_全局 = 假)数据库_全局. 回滚事务 ()信息框 (“产品入库失败”, 0, “提示”, )返回 ()
|