[[場所 : 管理者.Validating]]
( @C:green(エラーチェックを行う場所) )

● 入力されたコードが存在しなければエラー
● 上記の場合は、管理者名はクリアする
@DIV
If Me.管理者.InnerText.Trim() = "" Then
	Return
End If

If Not db.Connect() Then
	MessageBox.Show("DB接続に失敗しました　　　　", _
	"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
	Return
End If

Dim Query As String = String.Format("select" + _
 " * from 社員マスタ " + _
 " where 社員コード = '{0}'", _
Me.管理者.Text)

If Not db.QueryAndRead(Query) Then
	Me.管理者名.InnerText = ""
	db.Close()
	MessageBox.Show("入力された管理者コードは存在しません　　　　", _
	"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
	' エラー扱い ( フィールドを離れられない )
	e.Cancel = True
	Return
End If
@END


[[場所 : 管理者.Validated]]
( @C:green(エラーが無かった場合の後処理) )

● 未入力に変更された場合は、管理者名をクリアする
● コードが存在した場合は氏名をセットする
@DIV
If Me.管理者.InnerText.Trim() = "" Then
	Me.管理者名.InnerText = ""
	Return
End If

Me.管理者名.InnerText = db.GetValue("氏名")

' Validating からの引継ぎ
db.Close()
@END