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
       c = c + 1
        Text1(i) = MSHFlexGrid1.TextMatrix(r, c)
        i= i + 1
    Next i
End Sub
text1数组是0-6，MSHFlexGrid1表格是1-7  老提示下标越界，需要显示第2-7列数据

MSHFlexGrid1.Cols包含表头数值，如果有判断时需要去除。
 另外MSHFlexGrid1.Cols是总列数，0- MSHFlexGrid1.Cols，就多列了，所以越界。
 修改为For i = 0 To MSHFlexGrid1.Cols-1

谢谢各位的回复，理解错误。。。改了一下代码好了。
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

    r = MSHFlexGrid1.Row
    c = 0
    For i = 1 To MSHFlexGrid1.Cols
        c = c + 1
        Text1(i - 1).Text = MSHFlexGrid1.TextMatrix(r, c)
    Next i
或
    r = MSHFlexGrid1.Row
    For i = 1 To MSHFlexGrid1.Cols
        Text1(i - 1).Text = MSHFlexGrid1.TextMatrix(r, i)
    Next i

谢谢各位的回复

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