不是表达式列
表事件代码有影响吗？（某一列数据变化后执行）
If e.DataCol.Name = "COD" Then '如果是分组行的数量列
If e.DataRow("COD") >0.0001 And e.DataRow("COD") <= 15 Then
If e.DataRow("水质类别") < 1 Then
e.DataRow("水质类别") = 1
End If
ElseIf e.DataRow("COD") > 15 And e.DataRow("COD") < =20 Then
If e.DataRow("水质类别") < 3 Then
e.DataRow("水质类别") = 3
End If
ElseIf e.DataRow("COD") > 20 And e.DataRow("COD") < = 30 Then
If e.DataRow("水质类别") < 4 Then
e.DataRow("水质类别") = 4
End If
ElseIf e.DataRow("COD") > 30 And e.DataRow("COD") <= 40 Then
If e.DataRow("水质类别") < 5 Then
e.DataRow("水质类别") = 5
End If
ElseIf e.DataRow("COD") >40 And e.DataRow("COD") < 100 Then
If e.DataRow("水质类别") < 6 Then
e.DataRow("水质类别") = 6
End If
End If
End If
If e.DataCol.Name = "BOD5" Then '如果是分组行的数量列
If e.DataRow("BOD5") >0.0001 And e.DataRow("BOD5") <= 3 Then
If e.DataRow("水质类别") < 1 Then
e.DataRow("水质类别") = 1
End If
ElseIf e.DataRow("BOD5") > 3 And e.DataRow("BOD5") < =4 Then
If e.DataRow("水质类别") < 3 Then
e.DataRow("水质类别") = 3
End If
ElseIf e.DataRow("BOD5") > 4 And e.DataRow("BOD5") < = 6 Then
If e.DataRow("水质类别") < 4 Then
e.DataRow("水质类别") = 4
End If
ElseIf e.DataRow("BOD5") > 6 And e.DataRow("BOD5") <= 10 Then
If e.DataRow("水质类别") < 5 Then
e.DataRow("水质类别") = 5
End If
ElseIf e.DataRow("BOD5") >10 And e.DataRow("BOD5") < 100 Then
If e.DataRow("水质类别") < 6 Then
e.DataRow("水质类别") = 6
End If
End If
End If
If e.DataCol.Name = "氨氮" Then '如果是分组行的数量列
If e.DataRow("氨氮") >0.0001 And e.DataRow("氨氮") <= 0.15 Then
If e.DataRow("水质类别") < 1 Then
e.DataRow("水质类别") = 1
End If
ElseIf e.DataRow("氨氮") > 0.15 And e.DataRow("氨氮") < =0.5 Then
If e.DataRow("水质类别") < 2 Then
e.DataRow("水质类别") = 2
End If
ElseIf e.DataRow("氨氮") > 0.5 And e.DataRow("氨氮") < =1 Then
If e.DataRow("水质类别") < 3 Then
e.DataRow("水质类别") = 3
End If
ElseIf e.DataRow("氨氮") > 1 And e.DataRow("氨氮") < = 1.5 Then
If e.DataRow("水质类别") < 4 Then
e.DataRow("水质类别") = 4
End If
ElseIf e.DataRow("氨氮") > 1.5 And e.DataRow("氨氮") <= 2 Then
If e.DataRow("水质类别") < 5 Then
e.DataRow("水质类别") = 5
End If
ElseIf e.DataRow("氨氮") >2 And e.DataRow("氨氮") < 100 Then
If e.DataRow("水质类别") < 6 Then
e.DataRow("水质类别") = 6
End If
End If
End If
If e.DataCol.Name = "P" Then '如果是分组行的数量列
If e.DataRow("P") >0.0001 And e.DataRow("P") <= 0.02 Then
If e.DataRow("水质类别") < 1 Then
e.DataRow("水质类别") = 1
End If
ElseIf e.DataRow("P") > 0.02 And e.DataRow("P") < =0.1 Then
If e.DataRow("水质类别") < 2 Then
e.DataRow("水质类别") = 2
End If
ElseIf e.DataRow("P") > 0.1 And e.DataRow("P") < =0.2 Then
If e.DataRow("水质类别") < 3 Then
e.DataRow("水质类别") = 3
End If
ElseIf e.DataRow("P") > 0.2 And e.DataRow("P") < = 0.3 Then
If e.DataRow("水质类别") < 4 Then
e.DataRow("水质类别") = 4
End If
ElseIf e.DataRow("P") > 0.3 And e.DataRow("P") <= 0.4 Then
If e.DataRow("水质类别") < 5 Then
e.DataRow("水质类别") = 5
End If
ElseIf e.DataRow("P") > 0.4 And e.DataRow("P") < 5 Then
If e.DataRow("水质类别") < 6 Then
e.DataRow("水质类别") = 6
End If
End If
End If
If e.DataCol.Name = "总氮" Then '如果是分组行的数量列
If e.DataRow("总氮") >0.0001 And e.DataRow("总氮") <= 0.2 Then
If e.DataRow("水质类别") < 1 Then
e.DataRow("水质类别") = 1
End If
ElseIf e.DataRow("总氮") > 0.2 And e.DataRow("总氮") < =0.5 Then
If e.DataRow("水质类别") < 2 Then
e.DataRow("水质类别") = 2
End If
ElseIf e.DataRow("总氮") > 0.5 And e.DataRow("总氮") < = 1 Then
If e.DataRow("水质类别") < 3 Then
e.DataRow("水质类别") = 3
End If
ElseIf e.DataRow("总氮") > 1 And e.DataRow("总氮") < = 1.5 Then
If e.DataRow("水质类别") < 4 Then
e.DataRow("水质类别") = 4
End If
ElseIf e.DataRow("总氮") > 1.5 And e.DataRow("总氮") <= 2 Then
If e.DataRow("水质类别") < 5 Then
e.DataRow("水质类别") = 5
End If
ElseIf e.DataRow("总氮") > 2 And e.DataRow("总氮") < 5 Then
If e.DataRow("水质类别") < 6 Then
e.DataRow("水质类别") = 6
End If
End If
End If
[此贴子已经被作者于2023/6/28 17:13:18编辑过]
加好友 
发短信
Post By：2023/6/27 17:05:00 [显示全部帖子]
