主题：紧急求助

各位好，请问为什么我使用 insert into 语句每次在access数据库里增加的都是两行啊，也就是每次都执行两次插入行，求解

用例子说话，纸上不谈兵

狐爸好：保存按钮代码如下：

Dim cm As New SQLCommand
cm.CommandText="Insert Into {运单表} (运单号, 日期, 发站, 到站, 发货人, 发货人电话, 发货人地址, 收货人, 收货人电话, 收货人地址, 送货方式, 提货费, 送货费, 运费, 运费小计, 现付, 到付, 回单付, 月结, 回单份数,  经办人, 备注, 代收货款) Values( '" & ydh.text & "','" & Date.Today & "', '" & fz.Text & "', '" & dz.Text & "', '" & fhr.Text & "', '" & fhrdh.Text & "', '" & fhrdz.Text & "', '" & shr.Text & "', '" & shrdh.Text & "', '" & shrdz.Text & "','" & shifou & "' ,'" & thf.Value & "', '" & shf.Value & "', '" & cyf.Value & "', '" & zj.Value & "',' " & xf.Value & "', '" & df.Value & "', '" & hf.Value & "', '" & yj.value & "', '" & hd.Text & "',  '" & jbr.Text & "','" & bz.Text & "', '" & dsf.Value & "')"
cm.C
cm.ExecuteNonQuery
If cm.ExecuteNonQuery = 1 Then
    MessageBox.show("保存成功!","保存",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

看不出问题，也许你这个代码执行了两次，前面加一个：

 

MessageBox.show("执行了")

Dim cm As New SQLCommand
cm.CommandText="Insert Into {运单表} (运单号, 日期, 发站, 到站, 发货人, 发货人电话, 发货人地址, 收货人, 收货人电话, 收货人地址, 送货方式, 提货费, 送货费, 运费, 运费小计, 现付, 到付, 回单付, 月结, 回单份数,  经办人, 备注, 代收货款) Values( '" & ydh.text & "','" & Date.Today & "', '" & fz.Text & "', '" & dz.Text & "', '" & fhr.Text & "', '" & fhrdh.Text & "', '" & fhrdz.Text & "', '" & shr.Text & "', '" & shrdh.Text & "', '" & shrdz.Text & "','" & shifou & "' ,'" & thf.Value & "', '" & shf.Value & "', '" & cyf.Value & "', '" & zj.Value & "',' " & xf.Value & "', '" & df.Value & "', '" & hf.Value & "', '" & yj.value & "', '" & hd.Text & "',  '" & jbr.Text & "','" & bz.Text & "', '" & dsf.Value & "')"
cm.C
cm.ExecuteNonQuery
If cm.ExecuteNonQuery = 1 Then
    MessageBox.show("保存成功!","保存",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 你执行了两次请求，下面的代码改一下

 

cm.ExecuteNonQuery
If cm.ExecuteNonQuery Then

 

改成

 

dim count as integer = cm.ExecuteNonQuery
If count = 1 then

我猜，你的表格不是查询表或临时表

 

sql语句保存了一次，表格同步时又保存了一次

多谢有点甜，谢谢了，也谢谢各位了