Private Sub MSHFlexGrid1_Click()
    Dim c As Integer
    Dim r As Integer
    Dim i As Integer
    r = MSHFlexGrid1.Row
    For i = 0 To MSHFlexGrid1.Cols
        c = i + 1
        Text1(i) = MSHFlexGrid1.TextMatrix(r, c)
    Next i
End Sub
text1数组是0-6，MSHFlexGrid1表格是1-7  老提示下标越界，需要显示第2-7列数据

谢谢各位的回复，理解错误。。。改了一下代码好了。
Private Sub MSHFlexGrid1_Click()
    Dim c As Integer
    Dim r As Integer
    Dim i As Integer
    r = MSHFlexGrid1.Row
    For i = 0 To MSHFlexGrid1.Cols - 2
        c = i + 1
        Text1(i) = MSHFlexGrid1.TextMatrix(r, c)
    Next i
End Sub

谢谢各位的回复

[此贴子已经被作者于2017-12-28 10:27编辑过]