高考问答老版聊斋电视剧全集:vb中的datagrid问题，如何设置每列的宽度
来源：百度文库 编辑：高考问答 时间：2024/04/26 04:24:48
我想做一个显示数据库内容的东西，我想用datagrid来实现，也基本上可以了，但是有一些小问题。我现在是这样编的
连接数据库
Public MdbConn As New ADODB.Connection
Public MdbRs As New ADODB.Recordset
Public Sub connectdb()
'联接字符串
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb.mdb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
End Sub
Private Sub Form_Load()
Call connectdb
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select 姓名,出生日期,固定电话,传真,移动电话,电子邮件,工作地址,职务 from txl where user='" + curuser + "' and 类型='重要人士'"
Set DataGrid1.DataSource = MdbRs
MdbConn.Close
End Sub
现在可以显示我想要的结果，但是我不知道我该怎么样设置才能让每列显示的宽度是不同的，是根据我而定的？还有没什么在拖动下面的滚动条的时候会显示一些空白区域，怎么样才能不出现这种情况/？
连接数据库
Public MdbConn As New ADODB.Connection
Public MdbRs As New ADODB.Recordset
Public Sub connectdb()
'联接字符串
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb.mdb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
End Sub
Private Sub Form_Load()
Call connectdb
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select 姓名,出生日期,固定电话,传真,移动电话,电子邮件,工作地址,职务 from txl where user='" + curuser + "' and 类型='重要人士'"
Set DataGrid1.DataSource = MdbRs
MdbConn.Close
End Sub
现在可以显示我想要的结果，但是我不知道我该怎么样设置才能让每列显示的宽度是不同的，是根据我而定的？还有没什么在拖动下面的滚动条的时候会显示一些空白区域，怎么样才能不出现这种情况/？
设置列宽示例：
DataGrid1.Columns(0).Width = 600
DataGrid1.Columns(1).Width = 1000
...
至于你说的空白区域，我没遇到过这种情况。