DataGrid的滚动条问题

[cuizg]

用ADODB 访问SQL数据库 ，可是Datagrid控件的下拉滚动条默认都是拉到底的，而且往上拉滚动条，鼠标一放开，滚动条又回到底部，而且即使用 .MOVEFIRST，移到第一条记录，滚动条的划块位置还是处在中间位置（既然是第一条记录那划块应该在最顶端呀），有没有什么办法可以解决？ 谢谢了！

[cindytsai]

可以把datagrid那部分的代码贴出来看看吗？

[cuizg]

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn As String
Dim ss As String

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strconn = "Driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=TestDB

ss = "Select * From TABLENAME"
conn.Open strconn
conn.Execute ss
rs.Open ss, conn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combox1.AddItem rs.Fields(0)
rs.MoveNext
Loop
Set rs = Nothing

[cindytsai]

你的 Do...Loop就是显示最后一条记录的意思吧，我用的是控件，大概也就是：
If rs.EOF Then
If rs.RecordCount = 0 Then
MsgBox "库中没有记录。"
Exit Sub
End If
rs.MoveFirst
End If

[cuizg]

贴错了， do while以后的都没有的，直接就把RS和DATAGRID绑定

set datagrid1.datasource=rs
datagrid1.refresh

...

[cuizg]

不会吧？ 一天了都没人回复。。。

[cuizg]

没办法，只好改用 MSHFLEXGRID了，可还是想知道 DATAGRID不行吗？

[cslf]

好象是DATAGRID的滚动条位置显示的不很准确。