datagrid的滚动条问题？

[jitterzg]

当用datagrid控件显示数据超出显示页面时，垂直滚动条始终处于最下面，即当前显示的
数据内容所在的位置与垂直滚动条显示的位置不符，不知如何解决？

[talent303]

http://search.csdn.net/Expert/topic/715/715516.xml?temp=.6853449

[啊维]

不会吧，我的怎么在最上面的？

[jitterzg]

我的代码如下：
txtSQL = "select * from class"
Set mrc = ExecuteSQL(txtSQL, MsgText, ErrNum)
If mrc.BOF And mrc.EOF Then
Set DataGrid1.DataSource = Nothing
Else
Set DataGrid1.DataSource = mrc
With DataGrid1
.Columns(0).Width = 2000
.Columns(0).Caption = " 班级编号"
.Columns(1).Width = 2000
.Columns(1).Caption = "时间戳"
.Columns(1).Visible = False
.Columns(2).Width = 2000
.Columns(2).Caption = " 班级名称"
.Columns(3).Width = 2000
.Columns(3).Caption = " 所属类别"
End With
End If
在读入的数据超出datagrid的显示页面后，垂直滚动条自动出现，此时垂直滚动条始终处于最下面，即当前显示的数据内容所在的位置与垂直滚动条显示的位置不符

[Andy__Huang]

那你也可以自己定位啊
rs.movefirst
rs.movelast
rs.move i 'i為當前記錄所指向的向前或向後移動i條記錄

[jitterzg]

怎么没高手能够回答这个问题，急？急？急？

[libingao]

txtSQL = "select * from class"
Set mrc = ExecuteSQL(txtSQL, MsgText, ErrNum)
If mrc.BOF And mrc.EOF Then
Set DataGrid1.DataSource = Nothing
Else
Set DataGrid1.DataSource = mrc
With DataGrid1
.Columns(0).Width = 2000
.Columns(0).Caption = " 班级编号"
.Columns(1).Width = 2000
.Columns(1).Caption = "时间戳"
.Columns(1).Visible = False
.Columns(2).Width = 2000
.Columns(2).Caption = " 班级名称"
.Columns(3).Width = 2000
.Columns(3).Caption = " 所属类别"
End With
mrc.movefirst '此时，将显示最上面的记录，垂直滚动条始终处于最上面；缺省时为最下面
End If

[jitterzg]

我加了mrc.movefirst,垂直滚动条仍然始终处于最下面，
并且我用鼠标左键按住移动移动块，只要一放，移动块又马上回到最下面，其实只要按垂直滚动条向下的箭头，下面还有数据未显示，但垂直滚动条中的移动块始终在最下面会导致用户以为下面已经没数据了，请各位高高手帮帮忙，

[jitterzg]

在线急等,这个问题我已等了两天也没解决,各位高高手,伸一下援助之手吧