vb6 - 用文件 vb6 填充 flexgrid

Question

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

名称文件 = App.Path & "\names.dat"
打开名称文件以输入为＃1
虽然不是 EOF(1)
    输入#1，x
        使用 MSFlexGrid1
            .Col = 1
            .Rows = 行数 + 1
            .Text = x
        结束于
文德
结束子

任何帮助都会很棒，并在此先感谢

Answer 1

我不确定为什么 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了你的循环 - 你不需要继续设置它，你的循环会比没有它更快（不是很多，但反复设置它是没有意义的）

Answer 2

如何将 Recordset 的内容转储到 Flexgrid。

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