主题：有关流水账的CASE STUDY

 例子二，不是根据 日期和产品统计的么？你要看PD02的库存

 直接对流水账进行统计，不就得出库存表了么？然后加上日期的筛选，就可以截取你要的数据

 

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

 

 库存、入库、出库，这样设计比较合理，不过如果入库出库是同一个表，这样更容易统计库存。

 

 统计可以参考 http://www.foxtable.com/help/topics/1454.htm

 

 1、先生成统计表，临时表或查询表；

 

 2、把统计表的数据都填充到一个表里面去，表里面可以用月份区分不同的盘点数据；

 

 3、盘盈入库与盘亏出库，得到盘点数以后，和账面比较，然后自动生成一行记录到出入库平衡即可。

Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1("日期") & "# And 日期 <= #" & pr2("日期") & "#")
Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1("日期") & "# And 日期 <= #" & pr2("日期") & "#")

Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")
Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")

If pr1 IsNot Nothing AndAlso pr2 IsNot Nothing Then
    Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 入库日期 >= #" & pr1("库存起始") & "# And 入库日期 <= #" & pr2("库存截止") & "#")
    Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 出库日期 >= #" & pr1("库存起始") & "# And 出库日期 <= #" & pr2("库存截止") & "#")
   
    e.DataRow("入库数量")=sum1
    e.DataRow("出库数量")=sum2
Else
    e.DataRow("入库数量")=Nothing
    e.DataRow("出库数量")=Nothing
End If

不应该啊，还报错上传具体例子。

 

If e.DataCol.name = "存货编码" Then
    Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")
    Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")
   
    If pr1 IsNot Nothing AndAlso pr2 IsNot Nothing Then
        Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 入库日期 >= #" & pr1("库存起始") & "# And 入库日期 <= #" & pr2("库存截止") & "#")
        Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 出库日期 >= #" & pr1("库存起始") & "# And 出库日期 <= #" & pr2("库存截止") & "#")
       
        e.DataRow("入库数量")=sum1
        e.DataRow("出库数量")=sum2
    Else
        e.DataRow("入库数量")=Nothing
        e.DataRow("出库数量")=Nothing
    End If
   
end if

If e.DataCol.name = "存货编码" Then
    Dim pr1 As DataRow = e.DataRow.GetParentRow("盘点单")
    Dim pr2 As DataRow = e.DataRow.GetParentRow("盘点单")

 1、预览和正常打印应该是一样的。

 

 2、报什么错。

 

 3、具体做个例子上来看看。