给点指教吧，加些注释，全点

[my202com4]

Private Sub frmInitialize()
Dim txtW As Integer
Dim i As Integer

txtW = Me.ScaleX(DataGrid1.Font.Size, vbPoints, vbTwips)

Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowAddNew = False
DataGrid1.AllowArrows = True
DataGrid1.AllowDelete = False
DataGrid1.AllowRowSizing = True
DataGrid1.AllowUpdate = False
DataGrid1.HeadLines = 1.5
DataGrid1.Splits(0).MarqueeStyle = dbgHighlightRow

For i = 1 To DataGrid1.Columns.Count - 1
DataGrid1.Columns.Remove 1
Next i
DataGrid1.Columns(0).Caption = "职工号"
DataGrid1.Columns(0).DataField = "ID"
DataGrid1.Columns(0).Width = txtW * 3 + 60
DataGrid1.Columns(0).NumberFormat = "@@@@@"

DataGrid1.Columns.Add 1
DataGrid1.Columns(1).Caption = "姓 名"
DataGrid1.Columns(1).DataField = "M_name"
DataGrid1.Columns(1).Width = txtW * 3 + 60

DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "性别"
DataGrid1.Columns(2).DataField = "M_sex"
DataGrid1.Columns(2).Width = txtW * 2 + 60
DataGrid1.Columns(2).NumberFormat = "@@"

DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(3).DataField = "M_age"
DataGrid1.Columns(3).Width = txtW * 2 + 60
DataGrid1.Columns(3).NumberFormat = "@@@"

DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "部 门"
DataGrid1.Columns(4).DataField = "M_bm"
DataGrid1.Columns(4).Width = txtW * 3 + 60

DataGrid1.Columns.Add 5
DataGrid1.Columns(5).Caption = " 职 称 "
DataGrid1.Columns(5).DataField = "M_zc"
DataGrid1.Columns(5).Width = txtW * 5 + 60

DataGrid1.Columns.Add 6
DataGrid1.Columns(6).Caption = " 工 资 "
DataGrid1.Columns(6).DataField = "M_gz"
DataGrid1.Columns(6).Width = txtW * 6 + 60
DataGrid1.Columns(6).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(6).Alignment = dbgRight

DataGrid1.Columns.Add 7
DataGrid1.Columns(7).Caption = " 奖 金 "
DataGrid1.Columns(7).DataField = "M_jj"
DataGrid1.Columns(7).Width = txtW * 6 + 60
DataGrid1.Columns(7).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(7).Alignment = dbgRight

DataGrid1.Columns.Add 8
DataGrid1.Columns(8).Caption = " 总 计 "
DataGrid1.Columns(8).DataField = "M_zj"
DataGrid1.Columns(8).Width = txtW * 6 + 60
DataGrid1.Columns(8).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(8).Alignment = dbgRight

'设定Text1对应的字段
For i = 0 To Text1.UBound
Text1(i).Tag = DataGrid1.Columns(i).DataField
Text1(i).Alignment = dbgCenter
Text1(i).Locked = True
Next i

Adodc1.Caption = ""
change.Enabled = False
append.Enabled = False
delete.Enabled = False
cmdOK.Enabled = False
cmdCancel.Enabled = False

End Sub

[lion_wing]

Private Sub frmInitialize()
Dim txtW As Integer
Dim i As Integer

txtW = Me.ScaleX(DataGrid1.Font.Size, vbPoints, vbTwips)
'获取像素值的大小

Set DataGrid1.DataSource = Adodc1'指定数据源
DataGrid1.AllowAddNew = False　　'添加标志无效
DataGrid1.AllowArrows = True　　 '指标有效
DataGrid1.AllowDelete = False　　'删除标志无效
DataGrid1.AllowRowSizing = True　'行自动调整标志有效
DataGrid1.AllowUpdate = False　　'自动更新标志无效
DataGrid1.HeadLines = 1.5　　　　'头行大小
DataGrid1.Splits(0).MarqueeStyle = dbgHighlightRow

For i = 1 To DataGrid1.Columns.Count - 1
DataGrid1.Columns.Remove 1　　'删除所有行，进行初始化
Next i

　'以下是为DATAGRID每列分别设标题（CAPTION）、
　'对应数据库字段（DATAFIELD）、宽度（WIDTH）
　'格式化字符（NUMBERFORMAT）、对齐方式（ALIGNMENT）

DataGrid1.Columns(0).Caption = "职工号"
DataGrid1.Columns(0).DataField = "ID"
DataGrid1.Columns(0).Width = txtW * 3 + 60
DataGrid1.Columns(0).NumberFormat = "@@@@@"

DataGrid1.Columns.Add 1
DataGrid1.Columns(1).Caption = "姓 名"
DataGrid1.Columns(1).DataField = "M_name"
DataGrid1.Columns(1).Width = txtW * 3 + 60

DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "性别"
DataGrid1.Columns(2).DataField = "M_sex"
DataGrid1.Columns(2).Width = txtW * 2 + 60
DataGrid1.Columns(2).NumberFormat = "@@"

DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(3).DataField = "M_age"
DataGrid1.Columns(3).Width = txtW * 2 + 60
DataGrid1.Columns(3).NumberFormat = "@@@"

DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "部 门"
DataGrid1.Columns(4).DataField = "M_bm"
DataGrid1.Columns(4).Width = txtW * 3 + 60

DataGrid1.Columns.Add 5
DataGrid1.Columns(5).Caption = " 职 称 "
DataGrid1.Columns(5).DataField = "M_zc"
DataGrid1.Columns(5).Width = txtW * 5 + 60

DataGrid1.Columns.Add 6
DataGrid1.Columns(6).Caption = " 工 资 "
DataGrid1.Columns(6).DataField = "M_gz"
DataGrid1.Columns(6).Width = txtW * 6 + 60
DataGrid1.Columns(6).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(6).Alignment = dbgRight

DataGrid1.Columns.Add 7
DataGrid1.Columns(7).Caption = " 奖 金 "
DataGrid1.Columns(7).DataField = "M_jj"
DataGrid1.Columns(7).Width = txtW * 6 + 60
DataGrid1.Columns(7).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(7).Alignment = dbgRight

DataGrid1.Columns.Add 8
DataGrid1.Columns(8).Caption = " 总 计 "
DataGrid1.Columns(8).DataField = "M_zj"
DataGrid1.Columns(8).Width = txtW * 6 + 60
DataGrid1.Columns(8).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(8).Alignment = dbgRight

　'设定Text1对应的字段
For i = 0 To Text1.UBound
Text1(i).Tag = DataGrid1.Columns(i).DataField
Text1(i).Alignment = dbgCenter
Text1(i).Locked = True
Next i

Adodc1.Caption = ""　　　　　'数据控件标题设置
'让下列控件无效
　change.Enabled = False
append.Enabled = False
delete.Enabled = False
cmdOK.Enabled = False
cmdCancel.Enabled = False

End Sub