主题：时间段金额计算

参考代码

Dim n as integer = 18
Dim dr As DataRow = DataTables("表B").find("")
Dim sum As Double = 0
If n > 15 Then
    sum = (n-15)*dr("费率3")+5*dr("费率2")+5*dr("费率1")
ElseIf n >10 Then
    sum = (n-5)*dr("费率2")+5*dr("费率1")
ElseIf n > 5
    sum = 5*dr("费率1")
End If

Select Case e.DataCol.name
    Case "箱型","滞箱天数"
        Dim n As Integer = e.DataRow("滞箱天数")
        Dim sum As Double = Nothing
        If n > 5 Then
            Dim drf As DataRow = DataTables("江运结算").find("箱型 = '" & e.DataRow("箱型") & "'")
            If drf IsNot Nothing Then
               
                If n > 15 Then
                    sum = (n-15)*drf("天15以上")+5*drf("天15内")+5*drf("天10")
                ElseIf n >10 Then
                    sum = (n-5)*drf("天15内")+5*drf("天10")
                ElseIf n > 5
                    sum = 5*drf("天10")
                End If
            End If
        End If

        e.DataRow("超期滞箱费") = sum
End Select