专家坐堂-月报表问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  月报表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14549)

--  作者：实话实说
--  发布时间：2011/11/23 14:31:00
--  月报表问题

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

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.rar

--  作者：czy
--  发布时间：2011/11/23 16:18:00
--
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

--  作者：实话实说
--  发布时间：2011/11/23 18:00:00
--

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

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

--  作者：czy
--  发布时间：2011/11/23 21:22:00
--
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

--  作者：小猪鑫鑫
--  发布时间：2011/11/23 21:52:00
--
顶，学习了

--  作者：实话实说
--  发布时间：2011/11/23 22:16:00
--

谢谢CZY.

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

烦请CZY再赐教

--  作者：e-png
--  发布时间：2011/11/23 23:04:00
--
你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。

--  作者：实话实说
--  发布时间：2011/11/24 7:02:00
--

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

--  作者：实话实说
--  发布时间：2011/11/24 8:56:00
--

以下是引用e-png在2011-11-23 23:04:00的发言：
你是想偷懒啊，这样的计算代码还要C版做，再说了，20111001/20011102....这个是什么月份呢？人家也没办法试吧。

重新刷新一下日期

--  作者：mr725
--  发布时间：2011/11/24 8:57:00
--
呵呵，老伙计：上月结存不就是上月底之前的入库累计减去其出库累计，再加上“初始数据”嘛，用compute搞定吧，条件嘛见4楼将最后一个“＝”改为“<”，应该是这样吧。