MSFlexGridの問題とファイルの読み込み問題です (ID:121809)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんばんは。 コードの内容をデバッグしてみましょう(^-^) >それから、メモ帳でDateファイルを作りました。以下になります。 >1,月,9,18,1,8,VBの勉強 >↓ >↓ >31,月,9,18,1,8,VCの勉強 ↑読み込むデータはこういう形式なんですよね。 >Private Sub Command1_Click() > '***** 配列の宣言 ***** > Dim num(30), x(30), y(30) ↑ここに読み込んだデータを格納するんですよね。 データに対して項目が少なくないですか? あと、型を定義するようにしたほうがいいと思います As String なのかas integerなのか・・・ 〜〜〜〜〜ちょっと略〜〜〜〜〜 > '**** データファイルの読み込み ***** > If CommonDialog1.filename <> "" Then > Open CommonDialog1.filename For Input As #1 > n = 0 > Do Until EOF(1) > n = n + 1 > Input #1, num(n), x(n), y(n) > Loop > Else > MsgBox "キャンセルされました。", , "メッセージ" > End If ↑Input ヘルプでみてみてください。作ったデータの形と読み込みの形 思ったように読み込めていますか? '***** データの計算と表への出力 With MSFlexGrid1 〜〜〜〜〜ちょっと略〜〜〜〜〜 > '***** 項目と計算結果の表示 ***** > For i = 1 To n > .Row = i > .Col = 0: .Text = 日付(i) > .Col = 1: .Text = 曜日(i) > .Col = 2: .Text = 出勤時間(i) > .Col = 3: .Text = 退勤時間(i) > .Col = 4: .Text = 休憩時間(i) > .Col = 5: .Text = 実労働時間(i) > .Col = 6: .Text = 備考(i) > Next i > End With >End Sub ↑最後にこの日付(i)〜実労働時間(i)がいきなり出現してきてます。 これはなんの変数ですか? がんばってください(^-^)/