用文件填充flexgrid vb6

Question

所以我需要把所有的名字放在flexgird的第1列中，每个名字都应该放在它自己的行上。这里是我，但我只是得到“无效行值”

 
namefile = App.Path & "\names.dat" 
Open namefile For Input As #1 
While Not EOF(1) 
    Input #1, x 
     With MSFlexGrid1 
      .Col = 1 
      .Rows = rowcount + 1 
      .Text = x 
     End With 
Wend 
End Sub 

任何帮助将是非常美妙的，并在此先感谢

Answer 1

我不知道为什么行数是在你的示例代码，但是这个作品我

namefile = App.Path & "\names.dat" 
Open namefile For Input As #1 
MSFlexGrid1.Rows = 1 
MSFlexGrid1.Col = 1 
While Not EOF(1) 
    Input #1, x 
    With MSFlexGrid1 
     .Rows = .Rows + 1 
     .Row = .Rows - 1 
     .Text = x 
    End With 
Wend 
End Sub 

我还拉了.Col =1你的循环 - 你并不需要保存设置它，你的循环会比没有它快（不是很多，但一再设置它是没有意义的）

Answer 2

How to dump contents of the Recordset into a Flexgrid.

一旦您将任何内容加载到记录集中，本文将提供有关您希望对网格执行的各种操作的技巧。