| 以文本方式查看主题 - 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=64894) |
| -- 作者：rophy0952 -- 发布时间：2015/3/4 14:19:00 -- [求助]帮忙看一下这段代码是否有问题？ DataTables("蒸镀工票信息").ReplaceFor("已审核", 1, "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("蒸镀工票信息").ReplaceFor("不良割除", e.Form.Controls("不良割除").value , "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("蒸镀工票信息").save DataTables("半成品检验记录表").ReplaceFor("已审核", 1, "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("半成品检验记录表").ReplaceFor("判定", e.Form.Controls("半成品判定").value , "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("半成品检验记录表").save DataTables("分切工票信息").ReplaceFor("已审核", 1, "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("分切工票信息").save DataTables("成品检验记录表").ReplaceFor("已审核", 1, "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("成品检验记录表").save DataTables("核数表").ReplaceFor("已审核", 1, "流水号=\'" & e.Form.Controls("流水号").value & "\'") DataTables("核数表").save 欲通过以上代码实现多表审核，但在操作时经常出现如下问题： 1.有时可以审核，有时审核不了。（不知是否是数据没有加载到呢？） 2.如何在所有表审核后以最快的速度，弹出一个窗口“审核成功”。
|
| -- 作者：有点甜 -- 发布时间：2015/3/4 14:22:00 -- 把 ReplaceFor 改成 SqlReplaceFor
Save那句可以不写
弹出提示，可以在代码的结尾，加入一个msgbox("审核成功") |