If GangWeiLei = 3 Then
Dim LinShi As List(of DataRow) = DataTables("评分临时录入表").Select("")
Dim BuMen As String = DataTables("岗位及人员明细表").Find("姓名 = '" & Name & "'" )("隶属部门")
Dim LingDao As String = DataTables("部门信息表").Find("部门编码 = '" & Bumen & "'" )("分管领导")
Dim FeiLingDaos As List(of DataRow) = DataTables("岗位及人员明细表").Select("岗位类 = 2 And 姓名 <> '" & LingDao & "' ")
Dim flds As New List(of String )
For Each fld As DataRow In FeiLingDaos
flds.Add(fld("姓名"))
Next
For Each ls As DataRow In LinShi
For Each fld As String In flds
If ls("被评测人") = fld Then
ls.Delete
End If
Next
Next
End If
运行就提示“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”
加好友 
发短信
Post By：2019/10/19 21:10:00 [只看该作者]
