DataGrid的滚动条问题

cuizg 2004-12-27 05:04:25
用ADODB 访问SQL数据库 ,可是Datagrid控件的下拉滚动条默认都是拉到底的,而且往上拉滚动条,鼠标一放开,滚动条又回到底部,而且即使用 .MOVEFIRST,移到第一条记录,滚动条的划块位置还是处在中间位置(既然是第一条记录那划块应该在最顶端呀),有没有什么办法可以解决? 谢谢了!
...全文
192 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

...
cindytsai 2004-12-28
  • 打赏
  • 举报
回复
你的 Do...Loop就是显示最后一条记录的意思吧,我用的是控件,大概也就是:
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
cindytsai 2004-12-28
  • 打赏
  • 举报
回复
可以把datagrid那部分的代码贴出来看看吗?

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧