业务描述:
职工年休假计划申报,每个部门默认出自己部门的人,如果有借调轮转的人在本部门,需要把这些人加入到休假计划申报中,在加人的时候,就需要判断网格中是否已经有该人员,有,就不添加。
类似业务场景很多。
实现效果:
'打开智能窗体,窗体位置: 项目窗体\XX医院\医院人力资源\*新增职工信息*
dim form1 = 创建窗体("faaccf32-bc3c-4811-8e84-1d7a0cd5c812")
form1.ShowDialog()
'form.Input2是人员的编码。
if isnull(form1.Input1) = false then
dim dt = 职工年休假计划.DataTable
'判断选择的人员是否在网格中
dim drx = dt.Select("人员编码='"+form1.Input2+" ' ")
'不在网格中。drx.Length>0表示存在
if drx.Length < 1 then
dim dr
dr=dt.NewRow()
dr["ID"]=Guid()
dr["科室"]=form1.Input1
dr["人员编码"]=form1.Input2
dr["姓名"]=form1.Input3
dr["性别"]=form1.Input4
dr["参加工作时间"]=form1.Input5
dt.Rows.Add(dr)
end if
end if