1223
社区成员
4.1w+
社区内容
- 主页
DataGrid的滚动条问题
用ADODB 访问SQL数据库 ，可是Datagrid控件的下拉滚动条默认都是拉到底的，而且往上拉滚动条，鼠标一放开，滚动条又回到底部，而且即使用 .MOVEFIRST，移到第一条记录，滚动条的划块位置还是处在中间位置（既然是第一条记录那划块应该在最顶端呀），有没有什么办法可以解决？ 谢谢了！
...全文
cslf 2005年01月15日
好象是DATAGRID的滚动条位置显示的不很准确。
cuizg 2005年01月13日
没办法，只好改用 MSHFLEXGRID了，可还是想知道 DATAGRID不行吗？
cuizg 2004年12月28日
不会吧？ 一天了都没人回复。。。
cuizg 2004年12月28日
贴错了， do while以后的都没有的，直接就把RS和DATAGRID绑定
set datagrid1.datasource=rs
datagrid1.refresh
...
set datagrid1.datasource=rs
datagrid1.refresh
...
cindytsai 2004年12月28日
你的 Do...Loop就是显示最后一条记录的意思吧，我用的是控件，大概也就是：
If rs.EOF Then
If rs.RecordCount = 0 Then
MsgBox "库中没有记录。"
Exit Sub
End If
rs.MoveFirst
End If
If rs.EOF Then
If rs.RecordCount = 0 Then
MsgBox "库中没有记录。"
Exit Sub
End If
rs.MoveFirst
End If
cuizg 2004年12月28日
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
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 2004年12月28日
可以把datagrid那部分的代码贴出来看看吗？