Select Case e.DataCol.Name
Case "难度赋值_计量"
If e.DataRow.Isnull("难度赋值_计量") Then
e.DataRow("难度赋值_维度") = Nothing
Else
Dim dr01 As DataRow = DataTables("难度计量标值").SQLFind("启用 = 1 and 难度因子名称 = '正常'")
If dr01 IsNot Nothing Then
If e.DataRow("难度赋值_计量") = dr01("难度计量标准值") Then
e.DataRow("难度赋值_维度") = "正常"
End If
End If
End If
End Select
下面一段自己参考改改