主题：[求助]梯坎式提成比例的计算（已解决）

呵呵，这不应该成为一个问题哦：

Select Case e.DataCol.name
    Case "业绩金额"
        Dim tc As Double
        Dim yj As Double = e.DataRow("业绩金额")
        If yj <10000 Then
        ElseIf yj <=20000 Then
            tc = yj * 0.15
        ElseIf yj <=30000 Then
            tc = yj * 0.2
        ElseIf yj <=40000 Then
            tc = yj * 0.3
        ElseIf yj <=50000 Then
            tc = yj * 0.35
        ElseIf yj <=60000 Then
            tc = yj * 0.4
        ElseIf yj <=70000 Then
            tc = yj * 0.45
        ElseIf yj <= 99999999 Then
            tc = yj * 0.15
        End If
        e.DataRow("提成") = tc
End Select