用vb6文件填充flexgrid

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

namefile=App.Path&“\names.dat” 打开名称文件以作为#1输入 而不是EOF（1） 输入#1，x 使用MSFlexGrid1 .Col=1 .Rows=rowcount+1 .Text=x 以 温德 端接头

---

任何帮助都将是非常好的，请提前感谢

我不确定为什么rowcount会出现在您的示例代码中，但这对我很有用

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

从循环中拉出-您不需要继续设置它，并且循环速度会比没有它更快（不是很多，但反复设置它是毫无意义的）

---

一旦您将任何内容加载到记录集中，本文将提供有关网格的各种技术

您似乎没有设置.Row（当前行）。这可能应该设置为.Rows-1。此外，您还可以使用.TextMatrix（我相信这会提供更好的性能）。

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