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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帐页问题

共有3857人关注过本帖树形打印复制链接主题：帐页问题

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/17 22:48:00 [只看该作者]

看了一下，下面的代码改成这样，一个小问题

Dim r As Row
Static s As String
Dim s1 As String
Dim n As Double
For i As Integer = 0 To Tables("材料帐页").Rows.Count(True) - 1

    r = Tables("材料帐页").Rows(i,True)
    If r.IsGroup Then
        s1 = r("材料")
        If s = "" OrElse s1 <> s Then
            n = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        Else
            n + = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        End If
        s = s1
    End If
Next

实话实说

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2014/4/17 22:57:00 [只看该作者]

按21楼代码，月合计的库存数量不对。20楼的例子可以看一下

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/17 23:14:00 [只看该作者]

哦，那就这样改一下。

Dim r As Row
Static s As String
Dim s1 As String
Dim n As Double
For i As Integer = 0 To Tables("材料帐页").Rows.Count(True) - 1

    r = Tables("材料帐页").Rows(i,True)
    If r.IsGroup Then
        s1 = r("材料").split(" ")(0)
        If s = "" OrElse s1 <> s Then
            n = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        Else
            n + = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        End If
        s = s1
    End If
Next

[此贴子已经被作者于2014-4-17 23:14:18编辑过]

实话实说

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2014/4/17 23:26:00 [只看该作者]

试了一下，应该可以了，多谢。

下一主题 >> << 上一主题

总数 24 上一页 1 2 3

主题：帐页问题