VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/05/30(Fri) 12:18 |
| 投稿者 | ： 神風 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 二次元配列から値をテキストボックスに渡すには |
初めて書き込みさせていただきます、神風です。
現在、二次元配列からの値をテキストボックスに表示させたいのですが、何故か
上手く値を表示してくれません。
テキストボックスdata(0),data(1)に同時に値を表示してくれないのです。
初歩的なことで申し訳ないのですが、どうか皆さんの知恵をお貸しください。
環境：Windows2000、VB6
コード：
Option Explicit
Option Base 1
Private arrdata3(38, 41) As String
Const kyuuyoitirannfile3 As String = "c:\給与一覧データ.csv"
Dim i As Integer '変数の宣言
Dim j As Integer
Dim filenum As Integer
filenum = FreeFile
Open kyuuyoitirannfile3 For Input As #filenum
For i = 1 To 38
For j = 1 To 47
Input #filenum, arrdata3(j, i)
Next j
Next i
Close #filenum
data(0).Text = arrdata3(1, 1) 'この行を記述すると何故かdata(1)が表示されません。
data(1).Text = arrdata3(2, 1) 'この行はdata(0)を記述すると何故か表示されません。
data(2).text = arrdata3(3, 1) 'これ以降の行はdata(0)を記述しても何故か表示されます。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）