我用DBGRID+data时用的是 Dim rs As Recordset Dim XX, i As IntegerXX = Data1.Recordset.Fields("idd") If XX > 0 Then datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX Set rs = datl.OpenRecordset("fpdy") rs.AddNew rs!idd = XX rs.Update rs.Close Data1.RecordSource = "select * from fpdy order by idd" Data1.Refresh i = 1 Do While Not Data1.Recordset.EOF i = i + 1 If i = XX + 1 Then Exit Do Data1.Recordset.MoveNext Loop DBGrid1.SetFocus End If
Dim rs As Recordset
Dim XX, i As IntegerXX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If