用文件填充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.

一旦您將任何內容加載到記錄集中，本文將提供有關您希望對網格執行的各種操作的技巧。