7,763
社区成员
发帖
与我相关
我的任务
分享
Dim XXA() As String, A As Integer, B As Integer, I As Integer, J As Integer
A = 5: B = 50
MSHFlexGrid1.Clear
MSHFlexGrid1.Cols = A + 1
MSHFlexGrid1.Rows = B + 1
ReDim XXA(A, B)
For I = 0 To A
For J = 0 To B
XXA(I, J) = MSHFlexGrid1.TextMatrix(J, I)
Next J
Next I