主题：月报表问题

如下示例文件中如何在[月报表]窗口中生成月报表

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

点击浏览该文件:管理项目1.rar

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()
End If
For Each dr As DataRow In DataTables("月报表").DataRows
    赋值代码
Next

麻烦完善一下赋值代码.谢了.

不好意思,我有几个月没用狐表了.忙啊.

DataTables("月报表").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

顶，学习了

谢谢CZY.

"上月结存"和"本月结存"怎么计算?比如我要做11月份的报表,"上月结存"应该是10月份的结存,(如果要得到10月份的报表,上月结存应该是9月份的结存)

烦请CZY再赐教

   

你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。

不好意思,主要是"上月结存"计算代码还不会,201110表示2011年10月

重新刷新一下日期

呵呵，老伙计： 上月结存不就是上月底之前的入库累计减去其出库累计，再加上“初始数据”嘛，用compute搞定吧，条件嘛见4楼将最后一个“＝”改为“<”，应该是这样吧。