Question

您好，我有个VB问题想请教您一下，希望您能帮我解决下，先谢谢了！

Private Sub Form_Load()
Adodc1.CommandType = 1
Adodc1.RecordSource = "select * from xszb order by bh"
Adodc1.Refresh
NODSTR9 = Adodc1.Recordset.RecordCount
MsgBox Adodc1.Recordset.RecordCount
Adodc1.Recordset.AddNew
MsgBox Adodc1.Recordset.RecordCount
Text2.Text = frmMain2.Adodc1.Recordset.Fields.Item(0).Value
Text1.Text = frmMain2.Adodc1.Recordset.Fields.Item(1).Value
Label7.Caption = NODSTR9 + 1
end sub
Private Sub XPButton1_Click(Index As Integer)
Select Case Index

Case 0

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Val(Text3.Text) = 0 Or Val(Text4.Text) = 0 Then
MsgBox "库单主要字段不能为空!!! ", 1, "系统提示！！！！"
Text3.SetFocus
Else
Adodc1.Recordset.Update
Frame1.Visible = False
DataGrid1.Visible = True
Unload Me
End If
Case 1
Unload Me
End Select
End Sub
XPBUTTON1是确定取消按钮用于却是是否要添加记录。运行的时候当添加窗体打开，添加中途又不想添加点击取消或者X关闭窗体的时候，数据表里也会多条记录，换句话说，我的程序的问题就是只要打开添加窗体，无论确定或者取消，数据表里都会添加一条记录，新记录里还有数据。TEXT1，TEXT2，LABEL7都和数据表字段绑定，数据表里有关键字段bh,和label7绑定。大概就是这样了，希望您不吝赐教

Answer 1

Adodc1.Recordset.AddNew
放到Adodc1.Recordset.Update的前面

追问

我这里有两个FORM窗体，这个是我改过的出问题了，而没改动的那个ADDNEW就是在FORM_LOAD里面写得，没有问题。

追答

既然是绑定的，Adodc1.Recordset.Update就没啥用了，可以改成
Adodc1.Refresh

追问

UPDATE就是为了区分添加与否，取消的时候就不用UPDATE了。我刚才把ADDNEW放到添加按钮里边，其他的都没变，提示说无法插入空行

追答

这个控件10年前就不用了，不知道你从哪搞来的代码
并且绑定是极其垃圾的手段，绑定后UPDATE是自动的

追问

嘿嘿，新手随便找了个程序练手。我想问问这个ADDNEW方法他什么情况下不用UPDATE也能添加？

追答

ADDNEW本身就是添加一条空白记录

追问

本身就是添加一条空记录，那ADDNEW之后文本框里填写的内容放缓存了？不用UPDATE方法就不能把缓存里面的东西复制给这条空记录，那么这还是一条空记录。因为表中有关键字，所以这条记录就应该插入不了吧？

追答

绑定了就未必了吧？绑定了你只要光标在文本框中切换到下一个文本框就算是UPDATE了

追问

那没点击文本框，就像上面写的那样赋值，按程序运行情况来看应该也UPDATE了。这样的话要撤销该怎么办？

追答

UPDATE是不能撤销的，只有删除
所以没人喜欢绑定

追问

绑定了修改好修改，要修改记录的时候点击DATAGRID里的记录就能显示出来。按你的说法，那我在取消按钮里加上删除语句，在UNLOAD事件里也加上删除记录这个问题就能搞定了 ？

追答

你可以自己试试，该说的我都说了。有十几年没用那控件了，现在都是用ADODB对象

追问

非常感谢！虽然问题没有解决，但分给你！

Answer 2

Adodc1.Recordset.AddNew
写在要添加的按钮里 而非load事件