|
當需要在大量記錄的數據表中定位某個記錄時，為了操作方便，我們通常采用多級下拉列表的實現方式。比如我們要搜尋人事處的一個叫“黎明”的個人信息，可先在單位下拉選單中定位人事處，從而下拉出人事處的人員名單列表，最終找到“黎明”的個人信息。實現步驟：
取單位名稱表（DWMCB）中的部門編號，產生一級下拉列表。
根據操作者的選擇，從人員名單表（RYMDB）中篩選出相應部門中的所有員工，創建二級下拉列表。
從二級列表中，定位個人信息。
程序如下：
...
Private Sub Form_Load()
Dim str1 As String
‘建立連接串
conn$="UID=caiwu;PWD=67786787;DATABASE=cwxxk; SERVER=NWIEEIC;DRIVER={SQL SERVER};DSN=‘‘;"
en.rdoEnvironments(0).CursorDriver = rdUseServer
‘建立連接
Set cn = en.rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, conn$)
‘從單位名稱表中取部門編號，并創建一級部門列表
Set rs = cn.OpenResultset("select dwbh,dwmc from dwmcb")
Do While Not rs.EOF
List1.AddItem rs("dwbh")
rs.MoveNext
Loop
rs.Close
End Sub
‘創建一級列表的點擊事件
Private Sub List1_Click()
gdwbh = List1.Text
‘調用產生二級列表的程序
getbmry List1.Text
End Sub
‘產生二級列表
Sub getbmry(strbm As String)
Dim ssql As String
‘從rymdb中篩選出一級列表中選中的單位中的人員姓名，用于創建二級列表
ssql = "select zgxm from gzmxk3 where dwbh=" && "‘" && strbm && "‘;"
Set rs = cn.OpenResultset(ssql, rdOpenKeyset)
List2.Clear
Do While Not rs.EOF
List2.AddItem rs("zgxm")
rs.MoveNext
Loop
rs.Close
End Sub
|
