Adodc1.Refresh一般只在ADodc改变连接对像时才使用
一般添加修改好像不可以加
连续快速添加会使添加内容出错,这个可以试试在Adodc1.Recordset.UpdateBatch后加入一个
DoEvents
或者直接控制输入按钮的可用状态,等待添加完成后才进行下一次操作
Private
Sub
Command2_Click()
Command2.enabled=0
Adodc1.Recordset.MoveLast
Text6.Text
=
Adodc1.Recordset.Fields(0)
+
1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value
=
Text6.Text
Adodc1.Recordset.Fields(1).Value
=
Text5.Text
Adodc1.Recordset.UpdateBatch
DoEvents
Command2.enabled=1
Text5.Text
=
Text5.Text
+
1
End
Sub
标签:Adodc1,Refresh