大神帮小弟我检查上 这几句有啥有关问题

大神帮我检查下 这几句有啥问题

VB code

conn.Open mstru8connOn Error GoTo handerror conn.BeginTransIf Trim(txtinvcode.Text) <> "" ThenScreen.MousePointer = vbHourglassstrsql1 = "update Inventory set bTrackSaleBill=1 where cInvCode='" & txtinvcode.Text & "'"conn.Execute strsql1strsql2 = "update Inventory_Sub set iRequireTrackStyle =1 where cInvSubCode='" & txtinvcode.Text & "'"conn.Execute strsql2conn.CommitTransScreen.MousePointer = vbDefaultMsgBox "Successful Update!", vbInformation, ""Exit SubEnd Ifhanderror:conn.RollbackTransMsgBox Err.DescriptionSet conn = NothingEnd Sub

输入错误的CINVCODE也提示Successful Update, 哪里写错了？？


[解决办法]
你说你输入错误的参数也正确更新了，只能说明你的更新执行了而数据里面表格之间没有设置constrains；这样数据库本身并不抛出错误

所以你这样的更新可能会产生的错误在数据库那里得不到体现，但是当你调用数据作计算的时候就比较容易显示出来了。

既然是用友，那么联系对方客服是最直接的方法

查看更多 下一篇