以下是引用czy在2012-8-28 22:43:00的发言：
因为出仓表中没有金额，我不知道出仓和结存金额如何获取就没有做，下面代码仅供参考
Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
e.Form.StopRedraw
Dim n As Integer = e.Form.Controls("月份").Value
DataTables("月报表").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("入仓").GetUniqueValues("", "型号","规格")
For Each Ary As String() In Arys
Dim r As Row = Tables("月报表").AddNew
r("型号") = Ary(0)
r("规格") = Ary(1)
Next
Dim dt As DataTable = DataTables("入仓")
Dim dt1 As DataTable = DataTables("出仓")
Dim Filter As String
For Each dr As DataRow In DataTables("月报表").DataRows
Filter = "型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "'"
dr("上月结存_数量") = dt.Compute("Sum(入仓数量)",Filter & " And 月份 < " & n) - dt1.Compute("Sum(出仓数量)",Filter & " And 月份 < " & n)
dr("本月入仓_数量") = dt.Compute("Sum(入仓数量)",Filter & " And 月份 = '" & s & "'")
dr("本月出仓_数量") = dt1.Compute("Sum(出仓数量)",Filter & " And 月份 = '" & s & "'")
dr("本月结存_数量") = dr("上月结存_数量") + dr("本月入仓_数量") - dr("本月出仓_数量")
Next
e.Form.ResumeRedraw
End If
[此贴子已经被作者于2012-8-28 22:43:51编辑过]
结存数量的计算都没有问题,就是金额计算有困难.我想再简述一下我公司仓库的月结表:
月结表是仓库交给财务的月报表,目前用EXCEL表计算,我想用foxtable自动生成,目前难在"上月结存金额"不能自动结转,仓管员用EXCEL计算时,是手工复制的.
关于出仓金额:由于库存物品是不同时期进货的,价格各不相同,一般只记录数量(厂内领用)不记金额,到月末结酸时统一按加权平均单价计算
加好友 
发短信
Post By：2012/8/28 19:00:00 [显示全部帖子]
