Question

So I need to put all the names in a file into column 1 on flexgird, each name should go on its own row. here is what I have but i just get “invalid row value”

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

Any help would be fantastic and thanks in advance

Answer 1

I’m not sure why rowcount is in your example code, but this works for me

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

I’ve also pulled the .Col =1 out of your loop – you don’t need to keep setting it and your loop will be faster than without it (not by much but repeatedly setting it is pointless)