■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#8055-0変数へのセット方法 と 配列?みりゅ2000-05-18(木) 10:17
     #8056-0RE#8055:変数へのセット方法 と 配列?しげ2000-05-18(木) 10:29
     #8062-0RE#8056:ありがとうございました。みりゅ2000-05-18(木) 11:34
#8055-0
変数へのセット方法 と 配列?
はじめたばかりで、とんでもない質問だと思いますけどお願いします。
'フォーム名は、frm_Table2 で
'TextBoxのオブジェクトがText1〜Text8あり、
その「DataSource」と「DataField」に必要な情報をセットしたいのですが
下記ですとErrorになり、どうも構文がわかりません。
どなたかアドバイスしていただけないでしょうか?

	Option Base 1
	Dim Col_Nam, Txt_Box, i
    
	Col_Nam = Array("RESPROJ", "FACILITY", "PROTOCOL", "INV", "PATIENT", "ECODE", "JACTUAL", "EACTUAL")
	Txt_Box = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8")
    
	For i = 1 To 8
		frm_Table2.Txt_Box(i).DataSource = "dtaGrid"
		frm_Table2.Txt_Box(i).DataField = Col_Nam(i)
	Next i
#8056-0
RE#8055:変数へのセット方法 と 配列?
> はじめたばかりで、とんでもない質問だと思いますけどお願いします。
> 'フォーム名は、frm_Table2 で
> 'TextBoxのオブジェクトがText1〜Text8あり、
> その「DataSource」と「DataField」に必要な情報をセットしたいのですが
> 下記ですとErrorになり、どうも構文がわかりません。
> どなたかアドバイスしていただけないでしょうか?
> 
> 	Option Base 1
> 	Dim Col_Nam, Txt_Box, i
>     
> 	Col_Nam = Array("RESPROJ", "FACILITY", "PROTOCOL", "INV", "PATIENT", "ECODE", "JACTUAL", "EACTUAL")
> 	Txt_Box = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8")
>     
> 	For i = 1 To 8
> 		frm_Table2.Txt_Box(i).DataSource = "dtaGrid"
> 		frm_Table2.Txt_Box(i).DataField = Col_Nam(i)
> 	Next i
>  

このプログラムですと Txt_Box() と、フォームのテキストボックスの関係が成立していません。
名前で指定するには次のようにしましょう。
    frm_Table2.Controls(Txt_Box(i)).DataSource 

または、テキストボックスを配列化し (同じ名前で、Indexプロパティに値を入れる) 次の様にします。
    frm_Table2.Text1(i).DataSource 

普通は、後者の方が解りやすいし、処理も若干速いです。
#8062-0
RE#8056:ありがとうございました。
しげさん へ どうもありがとうございました。
とても分かりやすかったです。m(__)m (^。^)
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)