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

我不确定为什么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

How to dump contents of the Recordset into a Flexgrid.

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

使用文件vb6填充flexgrid

2 个答案: