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

當(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)下載排行

主站蜘蛛池模板: 欧美激情一级欧美精品 | 911国产自产精品a | 亚洲欧美18v中文字幕高清 | 夜夜玩 | 亚洲国产一区在线观看 | 国产精品久久久久久久久久久久 | 91国在线高清视频 | 狠狠色狠狠干 | 伊人久久婷婷 | a影院| 欧美乱子伦xxxx12在线 | 日韩国产欧美在线观看 | 天天做天天爱天天爽天天综合 | 亚洲欧美一区二区三区在饯 | 国产亚洲精品不卡在线 | 久久婷婷一区二区三区 | 国产女人体一区二区三区 | 视频一区视频二区在线观看 | 91网站国产| 成人欧美一区在线视频在线观看 | 亚洲欧美中文字幕在线网站 | 人人看人莫人人爱免费看 | 成人国产精品免费视频 | 久久亚洲精品中文字幕二区 | 神马午夜伦理手机影院 | 国内成人啪啪网站 | 成人区在线观看免费视频 | 日韩综合网站 | 国产成人久久综合二区 | 成年网站免费观看 | 男女高清性高爱潮免费 | 五月色婷婷六月色丁香 | 波多野结衣久久精品 | 欧美一级在线 | 女网址www女大全小 女网址www女高清 | 婷婷在线免费视频 | 精品久久久久久久九九九精品 | 亚洲精品国产精品国自产观看 | 日本韩国欧美一区 | 欧美日韩亚洲综合 | 性日韩精品 |