实现代码如下:
dim e1 = Me.GetEventArgs()
if e1.NodeId="cd87a1da-6497-4d1c-b457-dca057f6e0a0" then
dim a=记录部件1.GetFieldValue("事件类别")
if a="医护安全事件:包括针刺、锐器刺伤、接触化疗药、传染病等导致损害的不良事件" or a="手术切口愈合不良" or a="疑似医院感染暴发" or a="多重耐药菌感染(科室主动发现并报告)" then
e1.Handled=true
e1.EnterNodeId="7b9d3f1c-607e-4cb3-8a6e-4ed45fd9e965"
else
e1.Handled=true
e1.EnterNodeId="d0437924-0967-4f3c-bfb9-1c2f2b399ce3"
end if
end if