VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/01/19(Fri) 12:54
投稿者： Do_Shirouto
Ｅメール：
ＵＲＬ：
タイトル： 配列要素についてお願いします

Combo1(20)　List2(9)までツールボックスより貼り付けて
作ってあります。
下記のコードを実行すると
エラー「配列要素がありません」で
Combo1(ST + 2).Text = DS$　で止まってしまいます。
調べてみると
Combo1(ST + 1).Text = OP$　ここの ST=19 が帰ってきました
（+1してない状態）
ST=18をST=17に変えると
エラー「ファイル名　または　番号が不正です」
Do Until EOF(1)ここで止まってしまいます。
他にはOpenしていません
どこが悪いのでしょうか　ご教授のほど
宜しくお願い申し上げます。
Combo1(20)　List2(9)　ともにIndexは確認して有ります。
’----------------------------
Private Sub List2_Click(Index As Integer)
ST = 18
Combo1(ST).Text = List2(Index).List(List2(Index).ListIndex)
List2(Index).Visible = False
Open App.Path & "\DATA.txt" For Input As #1
Do Until EOF(1)

Input #1, DAT, OP$, DS$
If DAT = Combo1(ST).Text Then
Combo1(ST + 1).Text = OP$
Combo1(ST + 2).Text = DS$
End If
Loop
Close #1

End Sub
まことに申し訳ございません。宜しくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -