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

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

 

    分别设计了三张表：期初，入库，出库，然后这三张表的数据如何自动全部读入到进销存表中并自动算出库存呢，请指教！[已附上附件]

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

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

 谢谢mr725，这个功能好实用啊，是设计进销存的参考，希望各位能在原基础上不断增加功能

 另外，我希望能逐日逐条把期初日期、入库日期和出库日期中各日期的数据,逐条逐条明细数据读入到进销存表中，做成一张明细进销存表，而不是采用汇总的方式读入到进销存表中，而是希望逐日逐条地填充到进销表中，如何实现呢?

 从而能实现自动做一张[明细帐]进销存表和做一张[总帐]进销存表了,现在还差【明细帐】式的进销存如何设计呢?

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

在7楼中已在项目事件中把日期加入到“来源列”和“接受列”,但出现如下错误，
 

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

    

 麻烦mr725帮我修正代码

而且所读日期不全

 是啊，自己没留意到

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