0

したがって、ファイル内のすべての名前をflexgirdの列1に配置する必要があります。各名前は、独自の行に配置する必要があります。これが私が持っているものですが、「無効な行の値」を取得します

namefile = App.Path＆ "\ names.dat"
入力用の名前ファイルを開く＃1
EOFではないが（1）
    入力＃1、x
        MSFlexGrid1を使用
            .Col = 1
            .Rows = rowcount + 1
            .Text = x
        で終わる
ウェンド
サブ終了

どんな助けでも素晴らしいでしょうそして事前に感謝します

4

2 に答える 2

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あなたのループからも引き出しました - あなたはそれを設定し続ける必要はなく、あなたのループはそれがない場合よりも速くなります (それほどではありませんが、繰り返し設定することは無意味です)

于 2010-04-05T15:31:32.177 に答える
0

Recordset のコンテンツを Flexgrid にダンプする方法。

何でもレコードセットにロードしたら、この記事では、グリッドで実行したいさまざまなことについてのテクニックを提供します。

于 2010-04-06T17:38:43.963 に答える