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

mr725,可以帮我设计下吗

是不是在库存数量列和库存金额列中的表达式把类似 [期初金额] 都改为： IsNull([期初金额],0) ？添加了计出的库存仍不对！

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)("出库金额")

End If

弹出这个提示框，是什么问题呢?
图片点击可在新窗口打开查看

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

输入23楼的代码后，弹出这个错误提示

我明了，结存数量列设了表达式

把结存数量改成数据列.

结存数量和结存金额对了，只是入库数量，入库金额，出库数量，出库金额不对，不同的入库日期或出库日期都是全部重复填充第一次的入库数量，入库金额，出库数量和出库金额,未能成功按不同日期对应填充不同的数量和金额，希望hhbb可以加力再帮我修正一下

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

以下是引用fyj0326在2011-6-23 12:44:00的发言：
结存数量和结存金额对了，只是入库数量，入库金额，出库数量，出库金额不对，不同的入库日期或出库日期都是全部重复填充第一次的入库数量，入库金额，出库数量和出库金额,未能成功按不同日期对应填充不同的数量和金额，希望hhbb可以加力再帮我修正一下

设置关联时，把日期也关联上即可···

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