用我以前的代码给你举个例子吧。
Private Sub dtgUserInfoQueryRefresh()
With dtgUserInfo
.ClearFields
Set .DataSource = adoQuery
.AllowRowSizing = False
'表头宽度设为两行
.HeadLines = 2
'选择方式为整行选中
.MarqueeStyle = dbgHighlightRow
'不允许修改(设为只读)
.AllowAddNew = False
.AllowDelete = False
.AllowUpdate = False
'第一列标题和宽度
.Columns(0).Caption = "用户编号"
.Columns(0).Width = 800
.Columns(0).AllowSizing = False
'第二列标题和宽度
.Columns(1).Caption = "用户名"
.Columns(1).Width = 800
.Columns(1).AllowSizing = False
'第三列标题和宽度
.Columns(2).Caption = "姓名"
.Columns(2).Width = 800
.Columns(2).AllowSizing = False
'第四列标题和宽度
.Columns(3).Caption = "密码"
.Columns(3).Width = 800
.Columns(3).AllowSizing = False
'第五列
.Columns(4).Caption = "状态"
.Columns(4).Width = 800
.Columns(4).DataFormat.Type = 5
.Columns(4).DataFormat.TrueValue = "已锁定"
.Columns(4).DataFormat.FalseValue = "未锁定"
.Columns(4).DataFormat.NullValue = "未知"
.Columns(4).AllowSizing = False
End With
End Sub