[浏览完整版]
标题：月报表问题
1楼
实话实说 发表于：2011/11/23 14:31:00
2楼
czy 发表于：2011/11/23 16:18:00Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("入仓")
f.DataTable = DataTables("月报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
Dim f1 As New Filler
f1.SourceTable = DataTables("出仓")
f1.DataTable = DataTables("月报表")
f1.ExcludeExistValue = True
f1.Filter = "月份 = '" & s & "'"
f1.Fill()
End If
For Each dr As DataRow In DataTables("月报表").DataRows
赋值代码
Next
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("入仓")
f.DataTable = DataTables("月报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
Dim f1 As New Filler
f1.SourceTable = DataTables("出仓")
f1.DataTable = DataTables("月报表")
f1.ExcludeExistValue = True
f1.Filter = "月份 = '" & s & "'"
f1.Fill()
End If
For Each dr As DataRow In DataTables("月报表").DataRows
赋值代码
Next
3楼
实话实说 发表于：2011/11/23 18:00:00麻烦完善一下赋值代码.谢了.
不好意思,我有几个月没用狐表了.忙啊.
4楼
czy 发表于：2011/11/23 21:22:00DataTables("月报表").DataRows.Clear
Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("入仓")
f.DataTable = DataTables("月报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
Dim f1 As New Filler
f1.SourceTable = DataTables("出仓")
f1.DataTable = DataTables("月报表")
f1.ExcludeExistValue = True
f1.Filter = "月份 = '" & s & "'"
f1.Fill()
For Each dr As DataRow In DataTables("月报表").DataRows
Dim s1 As String = "型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 月份 = '" & s & "'"
dr("本月入仓") = DataTables("入仓").Compute("Sum(入仓数量)",s1)
dr("本月出仓") = DataTables("出仓").Compute("Sum(出仓数量)",s1)
Next
End If
Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
Dim f As New Filler
f.SourceTable = DataTables("入仓")
f.DataTable = DataTables("月报表")
f.ExcludeExistValue = True
f.Filter = "月份 = '" & s & "'"
f.Fill()
Dim f1 As New Filler
f1.SourceTable = DataTables("出仓")
f1.DataTable = DataTables("月报表")
f1.ExcludeExistValue = True
f1.Filter = "月份 = '" & s & "'"
f1.Fill()
For Each dr As DataRow In DataTables("月报表").DataRows
Dim s1 As String = "型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "' And 月份 = '" & s & "'"
dr("本月入仓") = DataTables("入仓").Compute("Sum(入仓数量)",s1)
dr("本月出仓") = DataTables("出仓").Compute("Sum(出仓数量)",s1)
Next
End If
5楼
小猪鑫鑫 发表于：2011/11/23 21:52:00顶，学习了
6楼
实话实说 发表于：2011/11/23 22:16:00谢谢CZY.
"上月结存"和"本月结存"怎么计算?比如我要做11月份的报表,"上月结存"应该是10月份的结存,(如果要得到10月份的报表,上月结存应该是9月份的结存)
烦请CZY再赐教
7楼
e-png 发表于：2011/11/23 23:04:00你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。
8楼
实话实说 发表于：2011/11/24 7:02:00不好意思,主要是"上月结存"计算代码还不会,201110表示2011年10月
9楼
实话实说 发表于：2011/11/24 8:56:00以下是引用e-png在2011-11-23 23:04:00的发言：
你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。
你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。
重新刷新一下日期
10楼
mr725 发表于：2011/11/24 8:57:00呵呵，老伙计： 上月结存不就是上月底之前的入库累计减去其出库累计，再加上“初始数据”嘛，用compute搞定吧，条件嘛见4楼将最后一个“＝”改为“<”，应该是这样吧。