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

你对应该一下即可，留意红色地方，以此类推。

 代码这样写，比较繁琐

Select Case e.DataCol.name
    Case "业绩金额"      
        Dim tc As Double
        Dim yj As Double = e.DataRow("业绩金额")
        Select Case e.DataRow("职称")
            Case "职称1"
                If yj <10000 Then
                    tc = yj * 0.1
                ElseIf yj <=20000 Then
                    tc =  10000*0.1 + (yj - 10000) * 0.15
                ElseIf yj <=30000 Then
                    tc = 10000*0.1 + 10000*0.15 + (yj-20000) * 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
            Case "职称2"
               
        End Select
        e.DataRow("提成") = tc
End Select

你这个，是知识点的综合运用，可以利用find等跨表去引用对应数据。

http://www.foxtable.com/help/topics/1451.htm

看16楼，清空一下

If Functions.Execute("ShouQuan","佣金业绩表","生成工资表") Then
    Dim dt As DataTable = DataTables("工资")
    dt.DataRows.Clear
    Dim d1 As Date = Forms("佣金一览表").Controls("StartDate").Value
    Dim d2 As Date = Forms("佣金一览表").Controls("EndDate").Value
    Dim filter2 As String = "上岗日期 <= #" & d2 & "# and (离职日期 >= #" & d1 & "# or 离职日期 is null)"
    For Each dr As DataRow In DataTables("员工管理").Select(filter2)
        Dim ndr As DataRow = dt.AddNew
        ndr("日期") = Forms("佣金一览表").Controls("EndDate").Value
        ndr("姓名") = dr("姓名")
        ndr("部门") = dr("门店")
        ndr("职务") = dr("职务")
        ndr("个人业绩") = DataTables("佣金业绩表").Compute("sum(合计_佣金)","[置业顾问] = '" & dr("姓名") & "'")
        If dr("职务") <> "经理" AndAlso dr("职务") <> "部门经理" Then
            dr("店业绩") = Nothing
        Else
            ndr("店业绩") = DataTables("佣金业绩表").Compute("sum(合计_佣金)","[门店] = '" & dr("门店") & "'")
        End If
    Next
    Forms("工资").Show()
Else
    MessageBox.show("你无生成工资权限!")
End If