ルックアップフィールドについて
Accessをデータベースにして練習中です。
テーブルが複数あり、デザイナで基本フォームを作ってあります。
参考書にルックアップフィールドの作成の仕方が載っていたのですが
わからなくなってしまったのでどなたか教えてください。
下のコードを実行すると、ルックアップフィールドが空白になってしまいます。
データセット名：業務DataSet
登録社員テーブル：社員ID、氏名、住所、電話の４列
成績テーブル：社員ID、成果、残業時間の３列
成績テーブルに対応したフォームをデザイナで作成。
社員IDは「社員IDComboBox」、ルックアップフィールドはツールボックスから作り、「氏名TextBox」にしました。
ルックアップフィールドのTextBoxに社員IDに対応した氏名を表示したいと思っています。
Private Sub 社員IDComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 社員IDComboBox.SelectedIndexChanged
If 社員IDComboBox.Text = "" Then
Exit Sub
End If
Dim dr As 業務DataSet._登録社員Row
dr = 業務DataSet._登録社員.FindBy社員ID(CType(社員IDComboBox.SelectedText, Integer))
If dr Is Nothing Then
氏名TextBox.Text = ""
Else
氏名TextBox.Text = dr.氏名
End If
End Sub
色々やっていたら何がおかしいのかわからなくなってしまいました。
すみませんが教えてください。
それと、ComboBoxに登録社員テーブルの社員IDの一覧を表示しようと思ったらどのようにすればよいのですか？
お礼
回答頂きありがとうございました。勉強になりました。