[[場所 : 確認.Click]]

● 管理者の氏名を表示する為に、自己結合に変更
@DIV
Dim Query As String = String.Format("select" + _
  " 社員マスタ.社員コード" + _
  ",社員マスタ.氏名" + _
  ",社員マスタ.フリガナ" + _
  ",社員マスタ.所属" + _
  ",社員マスタ.性別" + _
  ",社員マスタ.作成日" + _
  ",社員マスタ.更新日" + _
  ",社員マスタ.給与" + _
  ",社員マスタ.手当" + _
  ",社員マスタ.管理者" + _
  ",管理者参照.氏名 as 管理者名" + _
  ",社員マスタ.生年月日" + _
  " from 社員マスタ" + _
  " left outer join 社員マスタ 管理者参照" + _
  " on 社員マスタ.管理者 = 管理者参照.社員コード" + _
  " where 社員マスタ.社員コード = '{0}'", _
Me.社員コード.Text)
@END


● 読み込んだデータによって、コンボボックスの初期選択
● 結合によって取得した管理者データの追加
@DIV
' ************************
' 修正
' ************************
If Me.処理区分.SelectedValue = 2 Then
	If Not db.QueryAndRead(Query) Then
		MessageBox.Show("入力された社員コードは存在しません　　　　", _
		"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Me.社員コード.Focus()
	Else
		Me.Protect(1, True)
		Me.Protect(2, False)
		Me.Protect(3, False)

		Me.氏名.InnerText = db.GetValue("氏名")
		Me.フリガナ.InnerText = db.GetValue("フリガナ")
		Me.性別.SelectByValue(db.GetValue("性別"))
		@C:red(Me.所属.SelectByValue)(db.GetValue("所属"))
		Me.給与.InnerText = db.GetValue("給与")
		Me.手当.InnerText = db.GetValue("手当")

		@C:green(' 管理者データ追加ぶん)
		Me.管理者.InnerText = db.GetValue("管理者")
		Me.管理者名.InnerText = db.GetValue("管理者名")

		Me.生年月日.InnerText = db.GetDate("生年月日")

		Me.氏名.Focus()
	End If

End If
@END