不可能不起作用啊
If e.DataCol.Name = "鉴定等级" OrElse e.DataCol.Name = "申报性质" OrElse e.DataCol.Name = "是否合格"
If e.DataRow("鉴定等级").Trim = "技师" Then
If e.DataRow("申报性质").Trim = "正常申报" AndAlso e.DataRow("是否合格").Trim = "是"
e.DataRow("理论考否") = True
Else
e.DataRow("理论考否") = False
End If
End If
End If