If user.NAME = "管理员" Then For Each r As Row In CurrentTable.Rows If r("XZH") = True Then Syscmd.Row.Delete() End If Next
ElseIf User.IsRole("总工办") Then For Each r As Row In CurrentTable.Rows If r("XZH") = True Then If CurrentTable.current.Isnull("BMSH") = False Then MessageBox.Show("数据已经审核通过,你不能删除!.") Else Syscmd.Row.Delete() End If End If Next End If