datagrid表格最后一行数据显示不出来

Question

str = "select * from seekresult order by 分数 desc"
Adodc1.RecordSource = str
Adodc1.Refresh
While Not Adodc1.Recordset.EOF   '把名次加进数据库里
    Adodc1.Recordset("名次") = Adodc1.Recordset.AbsolutePosition
    Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.UpdateBatch
Adodc1.RefreshDG1.Visible = True
DG1.Refresh为什么dg1表格里的名次字段里最后一名的信息显示不出来是空白,数据库里有这个名次值，但当前行的其它字段值都能显尖出来

Answer 1

不用管的，是你设置了允许增加，Option ExplicitPrivate Sub Form_Load()
  With Me.DataGrid1
    .AllowAddNew = False
    .AllowArrows = True
    .AllowDelete = False
    .AllowUpdate = True
  End With
End Sub