[求助]为什么会插入两条记录？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师们，看看这个怎么解决，点击确定按钮后会直接插入两条记录，把标红色的去掉后，就正常插入一条记录了，搞不懂，麻烦看看，谢谢！

另外：

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

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

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('nl').value=r;}</script>")

cmdllj.ExecuteNonQuery()

If cmdllj.ExecuteNonQuery = 1

改成

Dim r = cmdllj.ExecuteNonQuery()

If r = 1

还是不行，一样的效果

cmdllj.ExecuteNonQuery 这种代码，你执行多少次，就插入多少行的。请认真看2楼。

我看了，我肯定就执行一次啊，上面是我所有的代码，你帮我看看我哪个地方导致会执行两次？而且这只是个判断而已

以下是引用aduydgd在2018/6/4 15:11:00的发言：
我看了，我肯定就执行一次啊，上面是我所有的代码，你帮我看看我哪个地方导致会执行两次？而且这只是个判断而已

无语，判断也会执行啊。

你让我改的那样不是避免这样吗？我修改后还是一样

以下是引用aduydgd在2018/6/4 15:34:00的发言：
你让我改的那样不是避免这样吗？我修改后还是一样

1、贴出最后写的代码，全部代码；

2、不可能执行增加两行。

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

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

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('nl').value=r;}</script>")

主题：[求助]为什么会插入两条记录？