![]() |
#2
wds12016-06-04 13:50
|
下面的的方法感觉很慢:
Private Sub Command1_Click()
ReDim arr(5 To 50000) '定义数组的上标与下标
For I = 5 To 50000
arr(I) = MSFlexGrid1.TextMatrix(I, 2) '第二列的第5行到第5000行赋值到数组arr中
Next I
End Sub
谢谢!
[此贴子已经被作者于2016-6-4 17:52编辑过]