主题：编写下次自动生成的起号

1、结存金额和结存张数，是一样的逻辑处理；

2、起号，是查找上一条的记录得到。如

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [姓名] = '" & mr("姓名") & "'", "[_SortKey] Desc")

dr("售出_启号") = dr("售出_止号") + 1

结存金额的逻辑是什么？根据什么计算？

结存金额和结存张数一样，比如

mr("结存张数") = mr("上年结转_张数") + mr("领入_张数") - mr("售出_张数")
mr("结存金额") = mr("结存张数") * 50

 加一个列，填写每天的收费的金额。直接累计每天的金额，和1楼、5楼一样。

直接放在一起即可。也可以单独另外写一段代码。

Select Case e.DataCol.Name
   
    Case "姓名","上年结转_张数","领入_张数","售出_张数","结存张数","售出_废piao","售出_金额"
       
        Dim dr As DataRow
       
        Dim mr As DataRow = e.DataRow
       
        Dim drs As List(of DataRow)
       
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [姓名] = '" & mr("姓名") & "'", "[_SortKey] Desc")
       
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
           
            mr("结存张数") = mr("上年结转_张数") + mr("领入_张数") - mr("售出_张数")- mr("售出_废piao")
           
            mr("结存金额") = mr("售出_金额")
           
            dr = mr
           
        Else
            If dr.IsNull("售出_止号") = False Then
                e.datarow("售出_起号") = dr("售出_止号") + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.datarow("售出_起号") = dr("上年结转_起号")
            End If
           
        End If
       
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [姓名] = '" & dr("姓名") & "'")
       
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
           
            drs(i)("结存张数") = drs(i-1)("结存张数") + drs(i)("上年结转_张数") + drs(i)("领入_张数") - drs(i)("售出_张数")- drs(i)("售出_废piao")
           
            drs(i)("结存金额") = drs(i-1)("结存金额") + drs(i)("售出_金额")
           
        Next
       
End Select

试试

        Else

            msgbox(dr("售出_止号") & "|" & dr("上年结转_起号"))
            If dr.IsNull("售出_止号") = False Then
                e.datarow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.datarow("售出_起号") = val(dr("上年结转_起号"))
            End If

        Else
            If dr.IsNull("售出_止号") = False Then
                e.DataRow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.DataRow("售出_起号") = val(dr("上年结转_起号"))
            End If
        End If

改成

    Else

        If dr.IsNull("售出_张数") = False Then
            If dr.IsNull("售出_止号") = False Then
                e.DataRow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.DataRow("售出_起号") = val(dr("上年结转_起号"))
            End If
        End If
       Else

            e.DataRow("售出_起号") = Nothing

       End If

    Else

        If dr.IsNull("售出_张数") = False Then
            If dr.IsNull("售出_止号") = False Then
                e.DataRow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.DataRow("售出_起号") = val(dr("上年结转_起号"))
            End If
       Else

            e.DataRow("售出_起号") = Nothing

       End If

    End If