業(yè)務(wù)需求：批量選擇企業(yè)人員，填充到網(wǎng)格部件，并實(shí)現(xiàn)人員列表的勾選效果，自動(dòng)同步已選人員列表項(xiàng)。

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的浦口網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

首先我們需要構(gòu)建一個(gè)已選人員列表和一個(gè)企業(yè)人員選擇列表，

這個(gè)窗體構(gòu)建相當(dāng)簡(jiǎn)單，我們不做詳細(xì)講解，這里具體介紹如何實(shí)現(xiàn)的人員選擇列表的勾選效果和同步人員。

勾選效果實(shí)現(xiàn)思路：獲取網(wǎng)格部件的datatable，將datatable傳入人員選擇窗體中，循環(huán)判斷datatable和選擇列表，（人員ID）判斷條件成立設(shè)置勾選標(biāo)識(shí)。

同步人員實(shí)現(xiàn)思路：獲取選擇列表的標(biāo)識(shí)人員，然后傳回顯示窗體，循環(huán)顯示窗體人員，根據(jù)datatable的select查詢方法判斷傳回的list集合是否已存在，沒有利用datatable的Delete的方法刪除行。

'打開智能窗體，窗體位置： 項(xiàng)目窗體\隊(duì)伍建設(shè)\教育培訓(xùn)\*學(xué)習(xí)人員選擇列表* dim form1 = 創(chuàng)建窗體("8f03a0cb-db62-4965-81e4-b995e4e4b1d5") 'if  Me.Input1="EDIT" then         '獲取已選人員列表         dim dt_YXRY=網(wǎng)格部件1.DataTable         form1.Input1="修改"         '傳入選擇列表         form1.Input2=dt_YXRY         form1.Input3="其他" 'end if form1.ShowDialog() '判斷是否得到"Y" if form1.Output1="Y" then dim index = 網(wǎng)格部件1.DataTable.Rows.Count Dim dt=網(wǎng)格部件1.DataTable dim drx dim rows=form1.Output2 '判斷人員勾選是否為空 dim dt_dr if rows.Count <> 0 then         for each dr in rows                 '判斷選擇的人員是否在網(wǎng)格中cstr           drx = dt.Select("PEIXUNRENYUANID='"+cstr(dr["ID"])+" ' and QUERENRENGANGWEIID = '"+cstr(dr["崗位ID"])+"' ")           '不在網(wǎng)格中。drx.Length>0表示存在           if drx.Length < 1 then                   'msgbox(dr["ID"]&" "&dr["姓名"])                         dt_dr=dt.NewRow()                         dt_dr["ID"]=Guid()                         dt_dr["PEIXUNRENYUANID"]=dr["ID"]                         dt_dr["PEIXUNRENMINGCHENG"]=dr["姓名"]                         dt_dr["SHIFOUCANJIAXUEXI"]=true                         dt_dr["QUERENRENGANGWEIID"]=dr["崗位ID"]                         dt_dr["GANGWEI"]=dr["崗位"]                         dt.Rows.Add(dt_dr)                   index=index+1                  end if                         next end if '定義變量獲取傳回的list集合 dim dtt=form1.Output4 '定義變量獲取網(wǎng)格部件的dt dim dtt1=網(wǎng)格部件1.DataTable dim dtt_dr if dtt.Rows.Count>0 and dtt1.Rows.Count>0 then '循環(huán)dt  for each dr1 in dtt1.Copy().Rows          '判斷行狀態(tài)是否為標(biāo)記已刪除          if dr1.RowState<>8 then          '利用select方法判斷是否存在         rows=dtt.Select("人員ID='"+cstr(dr1["PEIXUNRENYUANID"])+"'")         if rows.Length = 0 then                 'msgbox(dr1["PEIXUNRENYUANID"]&" 沒找到,移除")                 dtt1.Select("PEIXUNRENYUANID='"+Cstr(dr1["PEIXUNRENYUANID"])+"'")[0].Delete()         end if         end if         next         end if end if

人員選擇列表代碼：

dim dt_RY dim xm dim jsy '設(shè)置安全人員選擇狀態(tài)，循環(huán)設(shè)置已經(jīng)選擇的人員 dim a dim b dim dt_a= 網(wǎng)格部件1.DataTable           for each dr1 in RY.Rows           if dr1.RowState<>8 then                   '人員ＩＤ                   a=dr1["PEIXUNRENYUANID"]                   '崗位ID                   b=dr1["QUERENRENGANGWEIID"]                   for each dr4 in dt_a.Rows                   if Cstr(dr4["ID"])=Cstr(a) and Cstr(dr4["崗位ID"])=Cstr(b) then                           網(wǎng)格部件1.MarkRowsByFilter("ID="&Cstr(dr4["ID"])&" and 崗位ID='"&Cstr(dr4["崗位ID"])&"' ",true)                           end if                              next         end if  next

原文地址:http://bbs.delit.cn/thread-975-1-1.html

轉(zhuǎn)載請(qǐng)注明出處:

撰寫人:度量科技http://www.delit.cn

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

網(wǎng)頁(yè)題目：關(guān)于網(wǎng)格部件選人實(shí)現(xiàn)勾選與自動(dòng)同步選項(xiàng)功能構(gòu)建-創(chuàng)新互聯(lián)
網(wǎng)頁(yè)URL：http://vcdvsql.cn/article24/ddpgce.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、網(wǎng)站制作、微信小程序、標(biāo)簽優(yōu)化、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)