主题：出错了

此主题相关图片如下：3030.png

你试过点目录树中的产品没有？一点整个软件消失！你能计算结存？我明天回单位我的手提试试，同一问题，问足一天没解决，我花钱搞那么多、那么复杂不是为了方便录入、统计，用这软件就根本没意义了！事实上同样的表结构、数据源我用excel已实现了录入、统计，存货一览表汇总、明细分类账、往来明细账、往来一览汇总等功能，只是数据越多，运行越慢才改用你们的软件，可问了一整天解决不了问题！

保留您原来的流水账的用法，12楼甜版的代码不是放在表事件的，是放到按钮执行的。

我原来的代码保留在软件表属性中，只是注识掉了，结存金额应在按扭中执行，因为要用月末一次加权平均法重算出仓单价，重算后再乘于数量计出各自的金额，数量则应在表属性中计算，因为要随时计出存货，不会象出仓单价那样受不同进仓单价差异影响，出仓金额的计算属生产成本计算范畴，先解决存货数量，再解决金额。

Select Case e.DataCol.Name
    Case "产品名称","规格型号","主计量单位进仓数量","主计量单位出仓数量"
        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("产品名称") & "' And [规格型号] = '" & mr("规格型号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("结余数量") = mr("主计量单位进仓数量") - mr("主计量单位出仓数量")
            'mr("结余金额") = mr("主计量单位进仓数量") * mr("进仓单价") + mr("费用") - mr("主计量单位出仓数量") * mr("出仓单价")
            dr("结余数量") = mr("结余数量")
            'dr("结余金额") = mr("结余金额")
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & "And [产品名称] = '" & dr("产品名称") & "' And [规格型号] = '" & mr("规格型号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("主计量单位进仓数量") - drs(i)("主计量单位出仓数量")
            'drs(i)("结余金额") = drs(i-1)("结余金额") + drs(i)("主计量单位进仓数量") * drs(i)("进仓单价") + drs(i)("费用") - drs(i)("主计量单位出仓数量") * drs(i)("出仓单价")
        Next
        If e.DataCol.Name = "产品名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品名称] = '" & e.OldValue & "' And [规格型号] = '" &  e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[产品名称] = '" & e.OldValue & "' And [规格型号] = '" &  e.OldValue & "'" , "[_SortKey]")
                If dr IsNot Nothing Then '如果找到,计算库存
                    dr("结余数量") = dr("主计量单位进仓数量") - dr("主计量单位出仓数量")
                    'dr("结余金额") = dr("主计量单位进仓数量") * dr("进仓单价") +dr("费用") - dr("主计量单位出仓数量") * dr("出仓单价")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey")  & " And [产品名称] = '" & dr("产品名称") & "' And [规格型号] = '" & mr("规格型号")  & "'",  "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("主计量单位进仓数量") - drs(i)("主计量单位出仓数量")
                    'drs(i)("结余金额") = drs(i-1)("结余金额") + drs(i)("主计量单位进仓数量") * drs(i)("进仓单价") + drs(i)("费用") - drs(i)("主计量单位出仓数量") * drs(i)("出仓单价")
                Next
            End If
        End If
End Select

这段代码同样出现21楼的错误提示。

要求安日期、录入顺序排序计出存货，上面的代码没安这要求写。

Select Case e.DataCol.Name
    Case "产品名称","规格型号","主计量单位进仓数量","主计量单位出仓数量"
        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("产品名称") & "' And [规格型号] = '" & mr("规格型号") & "'", "[_SortKey] Desc")
        If dr Isnot Nothing Then
            mr("结余数量") = mr("主计量单位进仓数量") - mr("主计量单位出仓数量")
            'mr("结余金额") = mr("主计量单位进仓数量") * mr("进仓单价") + mr("费用") - mr("主计量单位出仓数量") * mr("出仓单价")
            dr("结余数量") = mr("结余数量")
            'dr("结余金额") = mr("结余金额")
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & "And [产品名称] = '" & dr("产品名称") & "' And [规格型号] = '" & mr("规格型号") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("主计量单位进仓数量") - drs(i)("主计量单位出仓数量")
            'drs(i)("结余金额") = drs(i-1)("结余金额") + drs(i)("主计量单位进仓数量") * drs(i)("进仓单价") + drs(i)("费用") - drs(i)("主计量单位出仓数量") * drs(i)("出仓单价")
        Next
        End If
        If e.DataCol.Name = "产品名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品名称] = '" & e.OldValue & "' And [规格型号] = '" &  e.OldValue & "'", "[_SortKey] Desc")
            If dr is Nothing Then
                dr = e.DataTable.Find("[产品名称] = '" & e.OldValue & "' And [规格型号] = '" &  e.OldValue & "'" , "[_SortKey]")
                If dr IsNot Nothing Then '如果找到,计算库存
                    dr("结余数量") = dr("主计量单位进仓数量") - dr("主计量单位出仓数量")
                    'dr("结余金额") = dr("主计量单位进仓数量") * dr("进仓单价") +dr("费用") - dr("主计量单位出仓数量") * dr("出仓单价")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey")  & " And [产品名称] = '" & dr("产品名称") & "' And [规格型号] = '" & mr("规格型号")  & "'",  "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("主计量单位进仓数量") - drs(i)("主计量单位出仓数量")
                    'drs(i)("结余金额") = drs(i-1)("结余金额") + drs(i)("主计量单位进仓数量") * drs(i)("进仓单价") + drs(i)("费用") - drs(i)("主计量单位出仓数量") * drs(i)("出仓单价")
                Next
            End If
        End If
End Select

没弹出窗口报错了，但计算结果是错误的，没规格的产品依然没算出结存。

如果规格是可以没有值的，参考12楼的这种用法写查询条件

12楼的写法一直报错啊，同样没法计算出结存！一直没解决，你运行看看吧，结果对才是硬道理。

计算结果错误，没规格的没计算出结存，两个问题啊。