フレキシブルグリッドコントロールにCSVファイルを出力

解決

蜍-karasu- 2004-02-03 18:31:14 No: 111658 IP: [192.*.*.*]

初めまして、ＶＢ初心者で説明や理解にもたつくと思いますが、
どうかご教授願います。

今、住所録ソフトを作成しています。
住所録のデータはcsv形式のファイルに収めています。
このデータを一覧表示しようと思い、
フレキシブルグリッドコントロールにＣＳＶファイルのデータを表示させようと
思ったのですが、その方法がよくわかりません。

ネットで調べた感じでは

Private Sub Command1_Click()
    Dim i, n As Integer
    Dim Num(100), Name(100), sex(100), tel(100)
    Open "c:\My Documents\住所録.csv" For Input As #1
    n = 0
    Do Until EOF(1)
         n = n + 1
         Input #1, Num(100), Name(100), sex(100), tel(100)
    Loop

    With MSFlexGrid1
        For i = 1 To n
            .Row = i
            .Col = 0: .Text = Num(i)
            .Col = 2: .Text = Name(i)
            .Col = 3: .Text = sex(i)
            .Col = 4: .Text = tel(i)
        Next i
    End With
  Close #1
End Sub

って感じでいけるかと思ったのですが、動作しません。

編集削除

魔界の仮面弁士 2004-02-03 19:25:43 No: 111659 IP: [192.*.*.*]

> Input #1, Num(100), Name(100), sex(100), tel(100)
(100)ではなく、(n)なのでは。

編集削除

蜍-Karasu- 2004-02-03 19:34:03 No: 111660 IP: [192.*.*.*]

＞魔界の仮面弁士さん
ああっ！
確かに配列の１００番目必死に書き込んでも意味ないですね。
ご指摘ありがとうございました！

編集削除