VB中多級下拉列表的實現

發表于:2007-07-14來源:作者:點擊數: 標簽:
當需要在大量記錄的數據表中定位某個記錄時,為了操作方便,我們通常采用多級下拉列表的實現方式。比如我們要搜尋人事處的一個叫“黎明”的個人信息,可先在單位下拉選單中定位人事處,從而下拉出人事處的人員名單列表,最終找到“黎明”的個人信息。實現步
  當需要在大量記錄的數據表中定位某個記錄時,為了操作方便,我們通常采用多級下拉列表的實現方式。比如我們要搜尋人事處的一個叫“黎明”的個人信息,可先在單位下拉選單中定位人事處,從而下拉出人事處的人員名單列表,最終找到“黎明”的個人信息。實現步驟:


  取單位名稱表(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

原文轉自:http://www.anti-gravitydesign.com

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97