If dr.IsNull("审批结果4") = False AndAlso dr.IsNull("审批人4") = False Then
e.DataRow("进度") = "5A"
If dr.IsNull("审批结果5") = False AndAlso dr.IsNull("审批人5") = False
If User.IsRole(dr("维修厂")) Then
e.DataRow("进度") = "6A"
Else
e.DataRow("进度") = "7A"
End If
If dr.IsNull("审批人6") = False AndAlso dr.IsNull("审批日期6") = False Then
e.DataRow("进度") = "7A"
End If
End If
End If