主题：编排代码

每种单独判断就好了。

Select Case e.DataCol.Name
    Case "后勤","绩效标准工资","工数","实际工数"
        If e.DataRow("后勤") ="后勤" AndAlso e.DataRow("实际工数")> =e.DataRow("工数") Then
            e.DataRow("后勤绩效工资") =e.DataRow("绩效标准工资")
        ElseIf e.DataRow("后勤") ="后勤" AndAlso 6<e.DataRow("实际工数") AndAlso e.DataRow("实际工数")<e.DataRow("工数") Then
            e.DataRow("后勤绩效工资") =e.DataRow("绩效标准工资")*0.5
        ElseIf e.DataRow("后勤") ="后勤" AndAlso e.DataRow("实际工数")<6 Then
            e.DataRow("后勤绩效工资") =e.DataRow("绩效标准工资")/e.DataRow("工数")*e.DataRow("实际工数")
        ElseIf e.DataRow.isnull("后勤") Then
            e.DataRow("后勤绩效工资") = Nothing
        End If
End Select