主题：自动填充

上述是结算单，现在想添加一个赠送开扇费用的计算，求代码

结算单在哪里？图又在哪里？

开扇数量  |  面积  | 开扇单价 | 开扇费用 | 赠送开扇费用 |

 

请上传具体实例测试。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动填充.table

参考代码

 

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    If r("开扇数量") <> Nothing Then
        r("开扇费用") = r("开扇数量") * r("开扇单价")
        r("赠送开扇费用") = cint(r("面积") / 3) * r("开扇单价")
    End If
Next

赠送开扇个数是以该订单的累计面积合计除以3往小取整得出，赠送开扇费用是以每行的开扇数量乘以开扇单价得出，逐行填充，直到计算完赠送开扇费用。

Dim t As Table = Tables("表A")
Dim mj As Double = 0
For Each r As Row In t.Rows
    If r("开扇数量") <> Nothing AndAlso r("生产编号") <> "合计" Then
        mj += r("面积")
    End If
Next
Dim gs As Integer = Math.Floor(mj / 3)
Dim c As Integer = 0
For Each r As Row In t.Rows
    If r("开扇数量") <> Nothing Then
        If c + r("开扇数量") <= gs Then
            r("赠送开扇费用") =  r("开扇数量") * r("开扇单价")
            c += r("开扇数量")
        ElseIf c < gs AndAlso c + r("开扇数量") > gs Then
            r("赠送开扇费用") = (gs-c) * r("开扇单价")
            c = gs
        Else
            r("赠送开扇费用") = Nothing
        End If
    End If
Next

其中开扇数量为空时，面积不计算为空的行

Dim t As Table = Tables("表A")
Dim mj As Double = 0
For Each r As Row In t.Rows
    If r("开扇数量") <> Nothing AndAlso r("生产编号") <> "合计" Then
        mj += r("面积")
    End If
Next
Dim gs As Integer = Math.Floor(mj / 3)
Dim c As Integer = 0
For Each r As Row In t.Rows
    If r("开扇数量") <> Nothing Then
        If c + r("开扇数量") <= gs Then
            r("赠送开扇费用") =  r("开扇数量") * r("开扇单价")
            c += r("开扇数量")
        ElseIf c < gs AndAlso c + r("开扇数量") > gs Then
            r("赠送开扇费用") = (gs-c) * r("开扇单价")
            c = gs
        Else
            r("赠送开扇费用") = Nothing
        End If
    Else
        r("赠送开扇费用") = Nothing
    End If
Next