亲们，可以帮小弟我看一下代码吗，详解一下吧 ，多谢，需

亲们，可以帮我看一下代码吗，详解一下吧 ，谢谢，急需
Public Sub DBGridInitialize(ByRef Grid) '表格初始化
Dim i, j As Long
With Grid
  .BorderStyle = flexBorderNone
  .ColAlignment(0) = 4
  .RowHeight(0) = Pix(DefRowHeight)
  .FontSize = DefCellFontSize
  For i = 1 To .Rows - 1
  .RowHeight(i) = Pix(DefRowHeight)
  Next i
  For i = 0 To .Cols - 1
  .ColHidden(i) = False
  Next
  .Row = 1
  .Col = 1
  .RowSel = .Rows - 1
  .ColSel = .Cols - 1
  .CellAlignment = DefCellAligment
  .RowSel = .Row
  .ColSel = .Col
End With
End Sub

------解决方案--------------------
表格格式设置：

Public Sub DBGridInitialize(ByRef Grid) '表格初始化
Dim i, j As Long
With Grid
.BorderStyle = flexBorderNone '无边框
.ColAlignment(0) = 4 '这一列居中对齐
.RowHeight(0) = Pix(DefRowHeight) '设置这一行的行高
.FontSize = DefCellFontSize '设置字体
For i = 1 To .Rows - 1
.RowHeight(i) = Pix(DefRowHeight) '其他各行的行高
Next i
For i = 0 To .Cols - 1
.ColHidden(i) = False '显示所有列
Next
.Row = 1 '焦点在第一行
.Col = 1 '焦点在第一列
.RowSel = .Rows - 1 '选中所有行
.ColSel = .Cols - 1 '选中所有列
.CellAlignment = DefCellAligment '设置对齐方式
.RowSel = .Row '选中第一行
.ColSel = .Col '选中第一列
End With
End Sub