1.recordset.addnew 方法,
2.recordset.move**** 方法
详细内容请查帮助文件

解决方案 »

  1.   

    我用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
      

  2.   

    你最好用DBGRID绑定查询(不是表),你新添加的记录将出现在表格的中间(查询按字段排序)。