|
<火山程序 类型 = "通常" 版本 = 1 />
开始事务 ()
计次循环 (表格1.行数 - 1)
{
变量 库存数 <类型 = 小数>
i = 取循环索引 () + 1
库存数 = 文本到小数 (表格1.取文本数据 (i, 8)) - 文本到小数 (表格1.取文本数据 (i, 4))
SQL = "update 产品信息表 set 库存 ='" + 到文本 (库存数) + "' where 条码 = " + 条码
如果 (全局操作类.成员_Sqlite数据库.执行SQL语句 (SQL, ) != SQLite执行结果.成功)
{
信息框 ("修改库存数失败! ")
回滚事务 ()
}
SQL = "insert into 送货单表 (日期,单号,条码,产品名称,数量箱,客户名称,库存数) values ('" + 日期 + "','" + 单号 + "','" + 条码 + "','" + 产品名称 + "','" + 数量箱 + "','" + 客户名称 + "','" + 到文本 (库存数) + "')"
如果 (全局操作类.成员_Sqlite数据库.执行SQL语句 (SQL, ) != SQLite执行结果.成功)
{
信息框 ("保存失败! ", 信息框按钮.错误图标)
回滚事务 ()
}
}
信息框 ("保存成功!", 信息框按钮.信息图标)
保存事务 ()
//我上面只截取了一小段,这个完整一点,应该是没有用错的吧。
我出现的那个错误呢,概率比较低,不是每次都会出错,有时候一个月也不会错,所以不好找问题。
谢谢回复。
|
|