Adodc1.Refresh是什么意思？

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