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

Question

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

namefile = App.Path & "\ names.dat"
Открыть имя файла для ввода как #1
Пока не EOF(1)
    Вход № 1, х
        С MSFlexGrid1
            .Col = 1
            .Rows = rowcount + 1
            .Text = x
        Конец с
венед
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

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

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