日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

VB中多級(jí)下拉下文的完成

VB中多級(jí)下拉下文的完成

更新時(shí)間:2022-04-27 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

當(dāng)需要在大量記錄的數(shù)據(jù)表中定位某個(gè)記錄時(shí),為了操作方便,我們通常采用多級(jí)下拉列表的實(shí)現(xiàn)方式。比如我們要搜尋人事處的一個(gè)叫“黎明”的個(gè)人信息,可先在單位下拉選單中定位人事處,從而下拉出人事處的人員名單列表,最終找到“黎明”的個(gè)人信息。實(shí)現(xiàn)步驟:


  取單位名稱表(DWMCB)中的部門編號(hào),產(chǎn)生一級(jí)下拉列表。


  根據(jù)操作者的選擇,從人員名單表(RYMDB)中篩選出相應(yīng)部門中的所有員工,創(chuàng)建二級(jí)下拉列表。


  從二級(jí)列表中,定位個(gè)人信息。


  程序如下:


   ...


  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$)


  ‘從單位名稱表中取部門編號(hào),并創(chuàng)建一級(jí)部門列表


  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


  ‘創(chuàng)建一級(jí)列表的點(diǎn)擊事件


  Private Sub List1_Click()


  gdwbh = List1.Text


  ‘調(diào)用產(chǎn)生二級(jí)列表的程序


  getbmry List1.Text


  End Sub


  ‘產(chǎn)生二級(jí)列表


  Sub getbmry(strbm As String)


  Dim ssql As String


  ‘從rymdb中篩選出一級(jí)列表中選中的單位中的人員姓名,用于創(chuàng)建二級(jí)列表


  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

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 99热久久国产精品这里有9 | 成人免费一级在线播放 | 亚洲成人免费在线 | 国产成人精品亚洲 | 久久国产免费一区二区三区 | 国产a一级毛片含羞草传媒 国产bbbbsign | 女网址www女高清 | 蜜桃综合 | 曰韩在线视频 | 91桃色成人免费 | 精品国产一区二区三区免费 | 国产成人亚洲综合小说区 | 在线观看亚洲国产 | wwwxxx日本人 | 在线不卡视频 | 国产女人综合久久精品视 | 狠狠干狠狠撸 | 日韩免费高清一级毛片在线 | 中文乱码在线观看 | 日本96视频 | 欧美日韩无线在码不卡一区二区三区 | 日本一区二区在线视频 | 91国内在线观看 | 麻豆精品在线播放 | 成年人在线免费观看视频网站 | 欧美午夜在线 | 精品国产免费一区二区三区五区 | www.亚洲综合 | 久久久久久久久网站 | 天天摸天天添人人澡 | 天天干天天骑 | 日韩综合网 | 国产成人91高清精品免费 | 国产日韩亚洲欧美 | 九九在线精品视频xxx | 黄色福利在线 | 色婷婷综合在线视频最新 | 日韩欧美一中文字幕不卡 | 欧美人与性| 嫩草嫩草嫩草 | 日韩亚洲在线 |