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

[大韩]

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.Refresh

DG1.Visible = True
DG1.Refresh

为什么dg1表格里的名次字段里最后一名的信息显示不出来是空白,数据库里有这个名次值，但当前行的其它字段值都能显尖出来

[daisy8675]

不用管的，是你设置了允许增加，

Option Explicit

Private Sub Form_Load()
With Me.DataGrid1
.AllowAddNew = False
.AllowArrows = True
.AllowDelete = False
.AllowUpdate = True
End With
End Sub