度量快速开发平台-专业、快速的软件定制快开平台

标题: 关于网格部件选人实现勾选与自动同步选项功能构建 [打印本页]

作者: 万望    时间: 2020-4-15 20:19
标题: 关于网格部件选人实现勾选与自动同步选项功能构建
业务需求:批量选择企业人员,填充到网格部件,并实现人员列表的勾选效果,自动同步已选人员列表项。
首先我们需要构建一个已选人员列表和一个企业人员选择列表,


这个窗体构建相当简单,我们不做详细讲解,这里具体介绍如何实现的人员选择列表的勾选效果和同步人员。

勾选效果实现思路:获取网格部件的datatable,将datatable传入人员选择窗体中,循环判断datatable和选择列表,(人员ID)判断条件成立设置勾选标识。
同步人员实现思路:获取选择列表的标识人员,然后传回显示窗体,循环显示窗体人员,根据datatableselect查询方法判断传回的list集合是否已存在,没有利用datatableDelete的方法删除行。


  1. '打开智能窗体,窗体位置: 项目窗体\队伍建设\教育培训\*学习人员选择列表*
  2. dim form1 = 创建窗体("8f03a0cb-db62-4965-81e4-b995e4e4b1d5")

  3. 'if  Me.Input1="EDIT" then
  4.         '获取已选人员列表
  5.         dim dt_YXRY=网格部件1.DataTable
  6.         form1.Input1="修改"
  7.         '传入选择列表
  8.         form1.Input2=dt_YXRY
  9.         form1.Input3="其他"
  10. 'end if
  11. form1.ShowDialog()

  12. '判断是否得到"Y"
  13. if form1.Output1="Y" then
  14. dim index = 网格部件1.DataTable.Rows.Count

  15. Dim dt=网格部件1.DataTable
  16. dim drx
  17. dim rows=form1.Output2
  18. '判断人员勾选是否为空
  19. dim dt_dr
  20. if rows.Count <> 0 then
  21.         for each dr in rows
  22.                 '判断选择的人员是否在网格中cstr
  23.           drx = dt.Select("PEIXUNRENYUANID='"+cstr(dr["ID"])+" ' and QUERENRENGANGWEIID = '"+cstr(dr["岗位ID"])+"' ")
  24.           '不在网格中。drx.Length>0表示存在
  25.           if drx.Length < 1 then
  26.                   'msgbox(dr["ID"]&" "&dr["姓名"])
  27.                         dt_dr=dt.NewRow()
  28.                         dt_dr["ID"]=Guid()
  29.                         dt_dr["PEIXUNRENYUANID"]=dr["ID"]
  30.                         dt_dr["PEIXUNRENMINGCHENG"]=dr["姓名"]
  31.                         dt_dr["SHIFOUCANJIAXUEXI"]=true
  32.                         dt_dr["QUERENRENGANGWEIID"]=dr["岗位ID"]
  33.                         dt_dr["GANGWEI"]=dr["岗位"]
  34.                         dt.Rows.Add(dt_dr)
  35.                   index=index+1
  36.                  end if               
  37.         next
  38. end if

  39. '定义变量获取传回的list集合
  40. dim dtt=form1.Output4
  41. '定义变量获取网格部件的dt
  42. dim dtt1=网格部件1.DataTable
  43. dim dtt_dr

  44. if dtt.Rows.Count>0 and dtt1.Rows.Count>0 then
  45. '循环dt
  46. for each dr1 in dtt1.Copy().Rows
  47.         '判断行状态是否为标记已删除
  48.         if dr1.RowState<>8 then
  49.         '利用select方法判断是否存在
  50.         rows=dtt.Select("人员ID='"+cstr(dr1["PEIXUNRENYUANID"])+"'")
  51.         if rows.Length = 0 then
  52.                 'msgbox(dr1["PEIXUNRENYUANID"]&" 没找到,移除")
  53.                 dtt1.Select("PEIXUNRENYUANID='"+Cstr(dr1["PEIXUNRENYUANID"])+"'")[0].Delete()
  54.         end if
  55.         end if
  56.         next
  57.         end if
  58. end if
复制代码
人员选择列表代码:
  1. dim dt_RY
  2. dim xm
  3. dim jsy
  4. '设置安全人员选择状态,循环设置已经选择的人员
  5. dim a
  6. dim b
  7. dim dt_a= 网格部件1.DataTable
  8.           for each dr1 in RY.Rows
  9.           if dr1.RowState<>8 then
  10.                   '人员ID
  11.                   a=dr1["PEIXUNRENYUANID"]
  12.                   '岗位ID
  13.                   b=dr1["QUERENRENGANGWEIID"]
  14.                   for each dr4 in dt_a.Rows
  15.                   if Cstr(dr4["ID"])=Cstr(a) and Cstr(dr4["岗位ID"])=Cstr(b) then
  16.                           网格部件1.MarkRowsByFilter("ID="&Cstr(dr4["ID"])&" and 岗位ID='"&Cstr(dr4["岗位ID"])&"' ",true)       
  17.                   end if
  18.           
  19.                   next
  20.         end if
  21. next
复制代码





作者: 万望    时间: 2020-4-15 20:26
直接操作datatable构建更加灵活的功能
作者: 张兴康    时间: 2020-4-16 14:20
好东西,收藏一个
作者: 陈晓龙    时间: 2020-4-16 16:55
张兴康 发表于 2016-5-16 14:20
好东西,收藏一个

我也收藏了
作者: 万望    时间: 2020-4-16 17:11

作者: 张兴康    时间: 2020-4-17 14:17
陈晓龙 发表于 2016-5-16 16:55
我也收藏了

英雄所见略同?
作者: 陈晓龙    时间: 2020-4-17 16:24
张兴康 发表于 2016-5-17 14:17
英雄所见略同?

嗯,都支持下万总!
作者: 张兴康    时间: 2020-4-18 14:10
陈晓龙 发表于 2016-5-17 16:24
嗯,都支持下万总!

恩,要得陈总
作者: 陈晓龙    时间: 2020-4-18 14:33
张兴康 发表于 2016-5-18 14:10
恩,要得陈总


作者: 陈晓龙    时间: 2020-4-18 14:33
张兴康 发表于 2016-5-18 14:10
恩,要得陈总


作者: 张兴康    时间: 2020-4-19 14:06
陈晓龙 发表于 2016-5-18 14:33


作者: 陈晓龙    时间: 2020-4-19 15:20
张兴康 发表于 2016-5-19 14:06

给能不要发表情包!
作者: 张兴康    时间: 2020-4-20 14:13
陈晓龙 发表于 2016-5-19 15:20
给能不要发表情包!

表情含义丰富,体会多多
作者: 陈晓龙    时间: 2020-4-20 16:47
张兴康 发表于 2016-5-20 14:13
表情含义丰富,体会多多

有病!
作者: 万望    时间: 2020-4-22 23:44
都是些脑残,O(∩_∩)O哈哈~好好学习姿势
作者: 张兴康    时间: 2020-4-23 13:41
陈晓龙 发表于 2016-5-20 16:47
有病!


╭︿︿︿╮
{/ o  o /}  
( (oo) )   
  ︶︶︶
作者: 陈晓龙    时间: 2020-4-23 13:54
万望 发表于 2016-5-22 23:44
都是些脑残,O(∩_∩)O哈哈~好好学习姿势

注意错别字!
作者: 万望    时间: 2020-4-30 22:54





欢迎光临 度量快速开发平台-专业、快速的软件定制快开平台 (http://plat.delit.cn/) Powered by Discuz! X3.2