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

只是所填充的入库数量，入库金额，出库数量，出库金额不对,不按日期来填充

达到我的效果了,原来只要在这三张表(期初，入库，出库)都加上日期关联就达到我的效果了,实现进销存明细帐了

    另外还有一个问题是：如何在切换到进销表后自动按日期来排序，升序呢?
此主题相关图片如下：20110623-截图 7.png

最好能在用鼠标点击加载树的某一个
此主题相关图片如下：20110623-截图 8.png

代码后也能按日期自动升序

 狐表的功能好强大哦

 按日期来排序的代码如何写呢?

 ok了，谢谢mr725

 在切换到进销存表后能自动按日期升序，但在加载树处点某一产品后却
不能按日期升序，如何解决呢?

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

 点加载树某一代码，按日期来升序，代码如何写呢?

 麻烦mr725帮我看看代码是什么问题，加载树的ZA001的日期不能升序

  Tables("进销存").Sort = "日期"
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

这是附件，请mr725帮我看看为什么 加载树中的代码ZA001的日期不能升序呢?

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

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