怎样将期初、入库、出库这三张表的数据自动填充到进销存表中并自动计出库存？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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() '填充数据

    Dim drs As List(of DataRow) = DataTables("进销存").Select("", "代码,日期 ") '注意排序参数
    drs(0)("结存数量二") = drs(0)("期初数量")
    drs(0)("结存金额二") = drs(0)("期初金额")
    Dim n1,n2 As Double
    For i As Integer = 1 To drs.Count - 1 '从第二行开始逐行计算累计
         n1 = IIF( drs(i)("代码") = drs(i-1)("代码"),drs(i-1)("结存数量二"),0)
         n2 = IIF( drs(i)("代码") = drs(i-1)("代码"),drs(i-1)("结存金额二"),0)
         drs(i)("结存数量二") = drs(i)("期初数量") + n1+ drs(i)("入库数量")- drs(i)("出库数量")
         drs(i)("结存金额二") = drs(i)("期初金额") + n2+ drs(i)("入库金额")- drs(i)("出库金额")
    Next

End If
Tables("进销存").Sort = "日期"
图片点击可在新窗口打开查看

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

已将Tables("进销存").Sort = "日期"放在代码最后面，还是不行，还是不能升序

[此贴子已经被作者于2011-6-23 15:55:26编辑过]

放在

....

....
Next

Tables("进销存").Sort = "日期"
End If

之后还是不行

终于可以了，谢谢你mr725帮我解决问题图片点击可在新窗口打开查看

，之前用易表做进销存做得不太好，现在用狐表解决了材料进销存明细帐和进销存总帐了,再次说声谢谢你，mr725

1. 现上传进销存设计的修正版，有兴趣设计进销存的的狐友可以参考下，毕竟设计进销存方面的案例太少了

2.经过测试，昨天6月23日设计的进销存中，若录入同一日入库日期和出库日期会出现重复填充入库和出库数据的问题，现加上顺序号来解决.

3.在录入顺序号时，期初的顺序号，入库的顺序号，出库的顺序号不能出现重复，否则也会出现重复填充数据到进销表的问题，造成库存计算不正确的问题.

4.请昨天下载的狐表朋友们，今天重新下载过

5.具体见64至65楼