用VB MSFlexGrid控件 有行数限制没
1个回答
展开全部
用VB MSFlexGrid控件 有行数限制没?导入excel表为啥出现内存溢出的情况
代码 With Me.MSFlexGrid1
.Clear
.Rows = 1
i = iXlsRow
'必须确保数据的第一列值不为空
Do While xlSheet.Cells(i, 1) <> ""
If i > iXlsRow Then .AddItem ""
For j = 1 To iXlsCol
.TextMatrix(i - iXlsRow, j - 1) = xlSheet.Cells(i, j)
Next
i = i + 1
If i Mod 30 = 0 Then: DoEvents
'Me.ccrpProgressBar1.Value = Me.ccrpProgressBar1 + 1
Loop
End With
我导入excel表 当excel表有1W行的时候不会出问题 不过 一旦超过11600行就会报错 说是内存溢出
那位高人指点下
------解决方案--------------------
没有数据绑定的话,往里写数据是会有这个现象~~~
你可以分页啊,每次写一页~~~
代码 With Me.MSFlexGrid1
.Clear
.Rows = 1
i = iXlsRow
'必须确保数据的第一列值不为空
Do While xlSheet.Cells(i, 1) <> ""
If i > iXlsRow Then .AddItem ""
For j = 1 To iXlsCol
.TextMatrix(i - iXlsRow, j - 1) = xlSheet.Cells(i, j)
Next
i = i + 1
If i Mod 30 = 0 Then: DoEvents
'Me.ccrpProgressBar1.Value = Me.ccrpProgressBar1 + 1
Loop
End With
我导入excel表 当excel表有1W行的时候不会出问题 不过 一旦超过11600行就会报错 说是内存溢出
那位高人指点下
------解决方案--------------------
没有数据绑定的话,往里写数据是会有这个现象~~~
你可以分页啊,每次写一页~~~
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询