1、把
For Each dr As DataRow In DataTables("员工").DataRows
改成
'For Each dr As DataRow In DataTables("员工").select("[_Identify] In (" & dide &")")