- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 数据库事务中代码错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169094)
-- 发布时间：2021/6/2 15:18:00
-- 数据库事务中代码错误
老师好，数据库事务中的代码，在msgbox（1）与msgbox（2）之间出现错误 不知道是什么原因，请您帮忙看下 谢谢！！
cmd.CommandText = "Insert Into 民生贷方 (交易日期,贷方序号,主机交易流水号,贷方发生额,对方账号名称,委托编号集合,委托编号集合金额,币种,汇率,委托税后集合人民币,收款录入人,结束) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@交易日期",Date.Today)
cmd.Parameters.Add("@贷方序号",dfxh)
cmd.Parameters.Add("@主机交易流水号",zjls)
cmd.Parameters.Add("@贷方发生额",sin1)
cmd.Parameters.Add("@对方账号名称",tb1.Current("付款单位"))
cmd.Parameters.Add("@委托编号集合",tb1.Current("委托编号集合"))
cmd.Parameters.Add("@委托编号集合金额",tb1.Current("委托编号集合金额"))
cmd.Parameters.Add("@币种",e.Form.Controls("Combo币种").value)
cmd.Parameters.Add("@汇率",e.Form.Controls("Text汇率").value)
cmd.Parameters.Add("@委托税后集合人民币",tb1.Current("委托编号集合金额") * e.Form.Controls("Text汇率").value)
cmd.Parameters.Add("@收款录入人",user.name)
cmd.Parameters.Add("@结束",1)
cmd.ExecuteNonQuery
msgbox(1)
\'------------------------------------------------------追加 原始发票
cmd.CommandText = "Insert Into 原始发票 (发票号码,购方企业名称,开票日期,单据号,金额,税率,税额,开票人,票据种类,开票id,导入日期,导入人) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@发票号码",e.Form.Controls("Text凭证号").value)
cmd.Parameters.Add("@购方企业名称",tb1.Current("付款单位"))
cmd.Parameters.Add("@开票日期",e.Form.Controls("DateTimePicker1").value)
cmd.Parameters.Add("@单据号",e.Form.Controls("Text凭证号").value)
cmd.Parameters.Add("@金额",e.Form.Controls("Text开票金额").value)
cmd.Parameters.Add("@税率",0.06)
cmd.Parameters.Add("@税额",0)
cmd.Parameters.Add("@开票人",user.Name)
cmd.Parameters.Add("@票据种类","收据")
cmd.Parameters.Add("@开票id",e.Form.Controls("Text开票id").value)
cmd.Parameters.Add("@导入日期",Date.Today)
cmd.Parameters.Add("@导入人",user.Name)
cmd.ExecuteNonQuery
msgbox（2）
此主题相关图片如下：捕获.png
[此贴子已经被作者于2021/6/2 15:19:24编辑过]
-- 发布时间：2021/6/2 15:25:00
--
\'------------------------------------------------------追加 原始fa piao
cmd.CommandText = "Insert Into 原始fa piao (fa piao号码,购方企业名称,开piao日期,单据号,金额,税率,税额,开piao人,piao据种类,开piaoid,导入日期,导入人) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.clear
cmd.Parameters.Add("@fa piao号码",e.Form.Controls("Text凭证号").value)