| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]为什么会插入两条记录？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119923) |
| -- 作者：aduydgd -- 发布时间：2018/6/4 12:09:00 -- [求助]为什么会插入两条记录？ 老师们，看看这个怎么解决，点击确定按钮后会直接插入两条记录，把标红色的去掉后，就正常插入一条记录了，搞不懂，麻烦看看，谢谢！ 另外： wb.AddPageTitle("","pageheader","天普货运","广州市 （空格）天普货运代理有限公司")，空格的地方怎么添加空格？
wb.AddForm("","form1","lj.htm").attribute = """ With wb.AddInputGroup("form1","ipg1","请扫描快递单号后点击确定提交!") With .AddInputCell("ic1") \'通过InputCell增加输入框 .AddLabel("lnl","运单号:",0) \'增加标签,0显示在左边 .AddInput("nl","text",1) \'增加输入框,1表示显示在中间 End With End With Dim cmdllj As New SQLCommand cmdllj.C cmdllj.CommandText = "INSERT INTO WLXXX (ID,RQ,NR) VALUES (\'" & e.PostValues("nl") & "\',\'" & Date.Now & "\',\'快件已揽收!\')" cmdllj.ExecuteNonQuery() If cmdllj.ExecuteNonQuery = 1 wb.AddToptips("","toptiplj","揽件完成,请继续扫描!").msec = 3000 Else wb.AddToptips("","toptiperr","操作不成功,请重新扫描快递单号!").msec = 5000 End If With wb.AddButtonGroup("form1","btg12",True) .Add("btn12", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);""" End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With With wb.AddPageFooter("","pf1","Copyright © 2008-2020 trcloudp.com") End With wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'nl\').value=r;}</script>") |
| -- 作者：有点甜 -- 发布时间：2018/6/4 12:11:00 -- cmdllj.ExecuteNonQuery() If cmdllj.ExecuteNonQuery = 1
改成
Dim r = cmdllj.ExecuteNonQuery() If r = 1
|
| -- 作者：aduydgd -- 发布时间：2018/6/4 12:41:00 -- 好，我试试 |
| -- 作者：aduydgd -- 发布时间：2018/6/4 12:44:00 -- 还是不行，一样的效果 |
| -- 作者：有点甜 -- 发布时间：2018/6/4 14:46:00 -- cmdllj.ExecuteNonQuery 这种代码，你执行多少次，就插入多少行的。请认真看2楼。 |
| -- 作者：aduydgd -- 发布时间：2018/6/4 15:11:00 -- 我看了，我肯定就执行一次啊，上面是我所有的代码，你帮我看看我哪个地方导致会执行两次？而且这只是个判断而已 |
| -- 作者：有点甜 -- 发布时间：2018/6/4 15:14:00 -- 以下是引用aduydgd在2018/6/4 15:11:00的发言：
我看了，我肯定就执行一次啊，上面是我所有的代码，你帮我看看我哪个地方导致会执行两次？而且这只是个判断而已
无语，判断也会执行啊。 |
| -- 作者：aduydgd -- 发布时间：2018/6/4 15:34:00 -- 你让我改的那样不是避免这样吗？我修改后还是一样 |
| -- 作者：有点甜 -- 发布时间：2018/6/4 15:44:00 -- 以下是引用aduydgd在2018/6/4 15:34:00的发言：
你让我改的那样不是避免这样吗？我修改后还是一样
1、贴出最后写的代码，全部代码；
2、不可能执行增加两行。 |
| -- 作者：aduydgd -- 发布时间：2018/6/4 16:21:00 -- wb.AddForm("","form1","lj.htm").attribute = """ With wb.AddInputGroup("form1","ipg1","请扫描快递单号后点击确定提交!") With .AddInputCell("ic1") \'通过InputCell增加输入框 .AddLabel("lnl","运单号:",0) \'增加标签,0显示在左边 .AddInput("nl","text",1) \'增加输入框,1表示显示在中间 End With End With Dim cmdllj As New SQLCommand cmdllj.C cmdllj.CommandText = "INSERT INTO WLXXX (ID,RQ,NR) VALUES (\'" & e.PostValues("nl") & "\',\'" & Date.Now & "\',\'快件已揽收!\')" cmdllj.ExecuteNonQuery() Dim r = cmdllj.ExecuteNonQuery() If r = 1 wb.AddToast("","success", "操作完成",0).Icon= "success" Else wb.AddToast("","err", "操作不成功!请重新扫描",0).Icon= "warn" End If With wb.AddButtonGroup("form1","btg12",False) \'.Add("btn1", "确定", "submit").Value = "btn1" .Add("btn12", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);""" End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit").Attribute = """ End With With wb.AddPageFooter("","pf1","Copyright © 2008-2020 trcloudp.com") End With wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'nl\').value=r;}</script>")
|