主题：怎样将期初、入库、出库这三张表的数据自动填充到进销存表中并自动计出库存？

出库和入库的日期明明是入库日期和出库日期,你看看能对不?

 是啊，自己没留意到

If MainTable.Name = "进销存" Then
DataTables("进销存").DataRows.Clear()
    Dim f As New Filler
    f.SourceTable = DataTables("期初") '指定数据来源
    f.SourceCols = "日期,代码,材料名称,期初数量,期初金额" '指定数据来源列
    f.DataTable = DataTables("进销存") '指定数据接收表
    f.DataCols = "日期,代码,材料名称,期初数量,期初金额" '指定数据接收列
    f.Fill() '填充数据
    Dim f2 As New Filler
    f2.SourceTable = DataTables("入库") '指定数据来源
    f2.SourceCols = "入库日期,代码,材料名称" '指定数据来源列
    f2.DataTable = DataTables("进销存") '指定数据接收表
    f2.DataCols = "日期,代码,材料名称" '指定数据接收列
    
    f2.Fill() '填充数据
    Dim f3 As New Filler
    f3.SourceTable = DataTables("出库") '指定数据来源
    f3.SourceCols = "出库日期,代码,材料名称" '指定数据来源列
    f3.DataTable = DataTables("进销存") '指定数据接收表
    f3.DataCols = "日期,代码,材料名称" '指定数据接收列
   
    f3.Fill() '填充数据
End If

 1.虽然能逐日逐条填充，但计算进销存的库存数量和库存金额不对，

2.期初数量，期初金额，入库数量，入库金额，出库数量，出库金额如何不汇总，而是希望一笔笔明细填充到进销存表中，并明细计出各日不同代码的库存

  请指教

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

点击浏览该文件:进销存.table

此主题相关图片如下：20110623-截图 2.png

 如何能正确明细地计出各日各产品代码的库存数量和库存金额呢?

你这个做法不对的,因为做的是关联.根据代码和材料名称计算的,所以填充的只能代码和材料,入库日期和出库日期等不能填充到日期里的.

把类似 [期初金额]  都改为： IsNull([期初金额],0)

 如果我不做关联呢，如何将三张表明细地读入到进销存表中并明细计出库存呢？狐表可以做到吗?

当然,但如你这种计算,用关联是最好的.

 是在库存数量列和库存金额列中的表达式把类似 [期初金额]  都改为： IsNull([期初金额],0) ？