コメント |
[[場所 : MyBase.Load]]
@DIV
' ************************
' 性別コンボボックス
' ************************
db.Query("SELECT コード,名称 from コード名称マスタ where 区分 = 1 order by コード")
Do While db.Read()
' DB よりデータセット
Me.性別.Add(db.GetValue("名称"), db.GetValue("コード"))
Loop
Me.性別.SelectedIndex = -1
' ************************
' 所属コンボボックス
' ************************
db.Query("SELECT コード,名称 from コード名称マスタ where 区分 = 2 order by コード")
Do While db.Read()
' DB よりデータセット
Me.所属.Add(db.GetValue("名称"), db.GetValue("コード"))
Loop
Me.所属.SelectedIndex = -1
@END |