请问MSFlexGrid控件最大能显示多少条数据

Question

我在用MSFlexGrid控件时用循环的办法加载了3万条记录，总是出现内存溢出7，我想问一下MSFlexGrid控件最大能显示多少条数据啊？

Answer 1

你是用什么方法加载的？
如果直接msflexgrid.datasource=rs就绝对没有问题
若你先存导缓存，然后再给msflexgrid赋值那么当内存不大时就会出现这个问题

Answer 2

我的内存是256M，CPU是1.7G,这是我的部分代码，我的后台数据库为SQL2000,我在加载数据时当达到15000条以内就不会出现内存溢出的情况，当达到16000条时就会出现内存溢出的情况。
  rs.Open "select * from T_copyrount where F_otisweek='" & Txt_otisweek.Text & "'", cn
      Grid2.Rows = 1
      Do While Not rs.EOF
              Grid2.AddItem "" & vbTab & GB_OKText(rs!F_thid) & vbTab & _
                                         GB_OKText(rs!F_picid) & vbTab & _
                                         GB_OKText(rs!F_name) & vbTab & _
                                         GB_OKText(rs!F_material) & vbTab & _
                                         GB_OKText(rs!F_num) & vbTab & _
                                         GB_OKText(rs!F_parts) & vbTab & _
                                         GB_OKText(rs!F_assemble) & vbTab & _
                                         GB_OKText(rs!F_) & vbTab & _
                                         GB_OKText(rs!F_machine) & vbTab & _
                                         GB_OKText(rs!F_waixie) & vbTab & _
                                         GB_OKText(rs!F_waigou) & vbTab & _
                                         GB_OKText(rs!F_waibao) & vbTab & _
                                         GB_OKText(rs!F_import) & vbTab & _
                                         GB_OKText(rs!F_manufacturer) & vbTab & _
                                         GB_OKText(rs!F_order) & vbTab & _
                                         GB_OKText(rs!F_nostandard) & vbTab & _
                                         GB_OKText(rs!F_re) & vbTab & _
                                         GB_OKText(rs!F_pulla) & vbTab & _
                                         GB_OKText(rs!F_rise) & vbTab & _
                                         GB_OKText(rs!F_pullp) & vbTab & _
                                         ""
              rs.MoveNext
        Loop
    rs.Close
    Grid2.Sort = 1
请高手尽快帮忙，很急