No.5ベストアンサー
- 回答日時:
データコンボ cmbData
テキスト txtData
として、cmbDataがレコードとリンクしているものと仮定しています。
1.cmbData.BoundColumnが商品名、cmbData.DataFieldがID とする
2.Clickイベントに、以下を設定する
Private Sub cmbData_Click(Area As Integer)
txtData.Text = cmbData.BoundText
End Sub
3.商品名がテキストに表示されます。
P.S
フォーカス取得時も、処理を入れておくと起動時も商品名が表示されるよ。
Private Sub cmbData_GotFocus()
txtData.Text = cmbData.BoundText
End Sub
度重なる回答ありがとうございます。
上記の方法でなんとかかんとか表示させることはできるようになりました。
後はまた試行錯誤してみます。
No.4
- 回答日時:
#2のものです。
テーブルに格納されているとすると、以下のように格納されているのでしょうか。
IDテーブル(0)="1"
IDテーブル(1)="2"
IDテーブル(2)="3"
商品テーブル(0)="みかん"
商品テーブル(1)="ばなな"
商品テーブル(2)="りんご"
もし、そうなら、コンボボックスのStyleプロパティがドロップダウンリストになっているものとすると、ListIndexが現在表示されているコンボのインデックス番号を返すので、
Private Sub cmbData_LostFocus()
txtData.text = 商品テーブル(cmbData.ListIndex)
End Sub
で表示されます。
この回答への補足
ありがとうございます。
テーブルは、一つの「商品」というテーブルにフィールドとして、「ID」と「商品名」が入っています。
また、コンボボックスでなくデータコンボボックスを用いてつくっており、ListIndexなどのプロパティがないのですが、コンボボックでないと無理なのでしょうか?
No.3
- 回答日時:
こんにちは
コンボボックスにはIDのみが表示されるのでしょうか?
そうだとすれば
商品名を配列で持っておいて
IDをインデックスに商品名をとってくればよいのではないでしょうか?
ただしIDが跳んでいれば無駄な領域を使用します。
又、コンボ内の並びが変わらないのであれば選択した項目のインデックスでも
同じ様に配列から取れます。
この回答への補足
言葉がたらなかったようで申し訳ありません。
コンボボックスにはIDのみが表示されます。
IDと商品名をそれぞれ配列としてテーブルで持っており
今コンボボックスでIDを選択しlostfocus時にテキストボックスに商品名を表示させたいと思っています。
IDをインデックスに商品名をとってくるというのはどういう方法になるか教えていただければ助かります。
No.2
- 回答日時:
コンボをcmbData、テキストをtxtDataとしています。
AddItemなどで、コンボに
1 みかん
2 ばなな
3 りんご
と設定し、cmbDataのClickメソッドにて、
txtData.Text = Mid(cmbData.List(cmbData.ListIndex), 3)
cmbData.Text = Left(cmbData.List(cmbData.ListIndex), 1)
とすれば、コンボに数字が表示され、テキストに文字が表示されるようになりますよ。
No.1
- 回答日時:
Text1.Text = Combo1.Text
ただ、これだと[1]等も入ってしまいます。left,rightを使って
商品名のみを表示させれば良いのではないでしょうか ?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VB.NET)コンボボックスの連動について
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
-
4
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
5
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
6
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
7
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
8
CloseとDisposeの違い
Visual Basic(VBA)
-
9
テキストボックスを空白にする方法
Visual Basic(VBA)
-
10
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
11
DataGridViewの各セル幅を自由に決め、その幅で固定したい
Visual Basic(VBA)
-
12
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
13
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
14
矢印(左右)キーでイベントを発生させたい。
Visual Basic(VBA)
-
15
【VB2005】テキストボックス内の文字列をバイト数で制限したい
Visual Basic(VBA)
-
16
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
17
VB初心者。小数点以下の表示でつまづいています(涙
Visual Basic(VBA)
-
18
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
-
19
VB.net、テキストボックス入力制限、全角のみ
Visual Basic(VBA)
-
20
コンボボックスに日付を表示する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLを発行とは?クエリの作成と...
-
『列名 '担当者CD' があいま...
-
【ADO】「Execute」を使うと...
-
CSVファイルのエクスポートでソ...
-
VBとアクセスでSQL文に変...
-
COBOLのINVALID KEYが理解でき...
-
Accessで別mdbのテーブルをコピー
-
ワークテーブルの作成について
-
ロケールに対応するストリング...
-
手動または分散トランザクショ...
-
ExcelVBAからAccessMDB内のテー...
-
他のMDBのテーブルに追加したい
-
(泣)VBscriptでinnerhtmlを使...
-
DBFlute でシーケンス値取得
-
★クリスタルレポートの元になる...
-
HTMLのテーブルの行数が多くな...
-
オラクルデータベースへの更新方法
-
DataGridViewに複数テーブルの...
-
VBでコンボボックスとテキスト...
-
DataGridの中身をDataSetにテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
『列名 '担当者CD' があいま...
-
SQLを発行とは?クエリの作成と...
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
手動または分散トランザクショ...
-
エクセルのテーブルを解除する...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
HTMLのテーブルの行数が多くな...
-
ACCESS2010 実行時エラー 2766
-
ExcelVBAからAccessMDB内のテー...
-
Excel複数シートをaccessへ一括...
-
DataGridViewに複数テーブルの...
-
他のMDBのテーブルに追加したい
-
ワークテーブルの作成について
-
★クリスタルレポートの元になる...
-
COBOLのINVALID KEYが理解でき...
-
VBでコンボボックスとテキスト...
-
VB.NETでのAccessテーブルリンク
-
Accessのフォームでリス...
おすすめ情報