MSFlexGrid1.rows = 8
MSFlexGrid1.cols = 7
MSFlexGrid1.Fixedrows = 8
MSFlexGrid1.Fixedcols = 7
MSFlexGrid1.Formating="^星期一|^星期二|^星期三|^星期四|^星期五|^星期六|^星期日"
dim i%
For i = 1 To 7
MSFlexGrid1.TextMatrix(i,0) = "第" & Mid("一二三四五六七", i, 1) & "节"
Next i
Private Sub Form_Load()
With MSHFlexGrid1
.Rows = 8
.Cols = 8
.FixedRows = 1
.FixedCols = 1
For i = 1 To 7
.TextMatrix(0, i) = "第" & Mid("一二三四五六七", i, 1) & "节"
.TextMatrix(i, 0) = "星期" & Mid("一二三四五六日", i, 1)
Next
End With
End Sub