заполнение flexgrid файлом vb6

Question

Так что мне нужно поместить все имена в файле в столбец 1 на flexgird, каждое имя должно идти в отдельной строке. вот что у меня есть, но я просто получаю "недопустимое значение строки"

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

Как записать содержимое набора записей в Flexgrid.

После того, как вы загрузите все, что есть, в набор записей, эта статья предлагает приемы по различным вещам, которые вы хотите сделать с сеткой.