关于网格部件选人实现勾选与自动同步选项功能构建 - 度量快速开发平台-专业、快速的软件定制快开平台

'打开智能窗体，窗体位置：项目窗体\队伍建设\教育培训\*学习人员选择列表*
dim form1 = 创建窗体("8f03a0cb-db62-4965-81e4-b995e4e4b1d5")
'if Me.Input1="EDIT" then
'获取已选人员列表
dim dt_YXRY=网格部件1.DataTable
form1.Input1="修改"
'传入选择列表
form1.Input2=dt_YXRY
form1.Input3="其他"
'end if
form1.ShowDialog()
'判断是否得到"Y"
if form1.Output1="Y" then
dim index = 网格部件1.DataTable.Rows.Count
Dim dt=网格部件1.DataTable
dim drx
dim rows=form1.Output2
'判断人员勾选是否为空
dim dt_dr
if rows.Count <> 0 then
for each dr in rows
'判断选择的人员是否在网格中cstr
drx = dt.Select("PEIXUNRENYUANID='"+cstr(dr["ID"])+" ' and QUERENRENGANGWEIID = '"+cstr(dr["岗位ID"])+"' ")
'不在网格中。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
'定义变量获取网格部件的dt
dim dtt1=网格部件1.DataTable
dim dtt_dr
if dtt.Rows.Count>0 and dtt1.Rows.Count>0 then
'循环dt
for each dr1 in dtt1.Copy().Rows
'判断行状态是否为标记已删除
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
'设置安全人员选择状态，循环设置已经选择的人员
dim a
dim b
dim dt_a= 网格部件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
网格部件1.MarkRowsByFilter("ID="&Cstr(dr4["ID"])&" and 岗位ID='"&Cstr(dr4["岗位ID"])&"' ",true)
end if
next
end if
next

复制代码