Dim drs As List(of DataRow) = e.DataTable.Select("")
改为:
Dim drs As List(of DataRow) = e.DataTable.Select("员工 = '" & e.DataRow(“员工") & "'")