如题，如下的代码，不知道错在哪？


Private Sub Form_Load()
Dim I As Integer, Width, Text
Width = Array("300", "1800", "500", "1000", "800", "1200", "1000")
Text = Array("行", "商品名称", "单位", "数量", "单价", "金额", "年份")
With MSFlexGrid1 '初始化表格
For I = 0 To 6
MSFlexGrid1.ColWidth(I) = Width(I)
MSFlexGrid1.TextMatrix(0, I) = Text(I)
Next I
End With
End Sub

[此贴子已经被作者于2007-6-22 11:13:13编辑过]

楼上的问题，求助，谢谢！

少了一点点,改好代码如下
Dim I As Integer, Width, Text
Width = Array("300", "1800", "500", "1000", "800", "1200", "1000")
Text = Array("行", "商品名称", "单位", "数量", "单价", "金额", "年份")
With MSFlexGrid1
.Cols = 7
For I = 0 To 6
MSFlexGrid1.ColWidth(I) = Width(I)
MSFlexGrid1.TextMatrix(0, I) = Text(I)
Next I
End With

谢谢楼上