去掉该事件代码，改用下面的代码执行删除命令，遍历检索，如果出现有不允许删除的行，禁止删除并提示包含了那些内容的行不允许删除：
Dim dr As DataRow
Dim s As String
For i As Integer = CurrentTable.RowSel To CurrentTable.BottomRow
dr = CurrentTable.rows(i).DataRow
If dr("项目") = "影响因素" Then
dr.Delete()
Else
If s.Contains(dr("项目") = False
s = s & "|" & dr("项目")
End If
End If
Next
s = s.TrimStart("|")
MessageBox.Show("仅允许删除项目行为""影响因素""的行,上述包含""" & s & """的行未经删除~~~","小慧温馨提示")
加好友 
发短信
Post By：2020/2/21 17:02:00 [显示全部帖子]
