用VB MSFlexGrid控件 有行数限制没
答案:2 悬赏:70 手机版
解决时间 2021-02-22 14:56
- 提问者网友:wodetian
- 2021-02-21 18:09
用VB MSFlexGrid控件 有行数限制没
最佳答案
- 五星知识达人网友:躲不过心动
- 2021-02-21 18:22
用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行就会报错 说是内存溢出
那位高人指点下
------解决方案--------------------
没有数据绑定的话,往里写数据是会有这个现象~~~
你可以分页啊,每次写一页~~~
全部回答
- 1楼网友:鸽屿
- 2021-02-21 19:59
应该在下面这个事件里编写代码:
private sub msflexgrid1_rowcolchange()
msgbox "你改变了选择的单元!"
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯