设置在表A的DataColChanged事件:
Select Case e.DataCol.name
Case "成品率"
If e.DataRow("车间") = "一车间" Then
If e.DataRow("成品率") > 0.98 Then
e.DataRow("是否达标") = "优秀"
ElseIf e.DataRow("成品率") > 0.96 Then
e.DataRow("是否达标") = "良好"
ElseIf e.DataRow("成品率") > 0.93 Then
e.DataRow("是否达标") = "合格"
Else
e.DataRow("是否达标") = "不合格"
End If
ElseIf e.DataRow("车间") = "二车间"
If e.DataRow("成品率") > 0.96 Then
e.DataRow("是否达标") = "优秀"
ElseIf e.DataRow("成品率") > 0.94 Then
e.DataRow("是否达标") = "良好"
ElseIf e.DataRow("成品率") > 0.90 Then
e.DataRow("是否达标") = "合格"
Else
e.DataRow("是否达标") = "不合格"
End If
End Select