Foxtable(狐表)用户栏目专家坐堂 → 数据统计问题


  共有1610人关注过本帖树形打印复制链接

主题:数据统计问题

帅哥哟,离线,有人找我吗?
武汉老杨
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:605 威望:0 精华:0 注册:2016/7/21 12:54:00
数据统计问题  发帖心情 Post By:2016/9/28 15:48:00 [只看该作者]

老师:
有库存表

drawcell代码如下: _userdept 是一个单位名称分组 

If _username <> "admin" Then

    If e.Col.Name = "单价" Then

        If _UserDept <> e.Row("库存单位")

            e.Text = "***"

        End If

    End If

    

    If e.Col.Name = "金额" Then

        If _UserDept <> e.Row("库存单位")

            e.Text = "***"

        End If

    End If

End If

 

If  e.Col.Name = "数量" Then '如果是分组行的数量列

    If e.Row("数量") < 10 Then

        e.Style = "or"

    Else

        e.style = "els"

    End If

End If



窗口绑定“库存表”

afterload 代码如下:


合并模式

With Tables("库存表")

    .MergeMode = MergeModeEnum.Standard

    .MergeCols.Clear()

    .MergeCols.Add("库存单位")

    .MergeCols.Add("品牌")

    .MergeCols.Add("类别")

    .MergeCols.Add("系列")

    .MergeSort = "库存单位,品牌,类别,系列"

    .AllowMerge = True

End With

汇总模式

Dim t As Table = Tables("库存表")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

t.SpillNode = True

 

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "库存单位"

g.TotalOn = "金额"

g.Caption = "{0} 小计"

t.SubtotalGroups.Add(g)

 

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "*"

g.TotalOn = "数量,金额"

g.Caption = "总计"

t.SubtotalGroups.Add(g)

 

t.Subtotal()

 

显示结果如附件:
此主题相关图片如下:8888.png
按此在新窗口浏览图片


现在是以‘武汉公司’登录,希望能显示武汉公司小计中的“金额”数据 以及  总计中的“金额”数据。


请教 在哪里改?



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/28 16:24:00 [只看该作者]

drawcell事件

Select Case e.Col.Name
    Case "单价","金额"
        If _UserDept <> e.Row("库存单位")
            If e.Row.IsGroup Then
                If e.Row(0).contains(_UserDept) = False AndAlso e.Row(0) <> "总计" Then e.Text = "***"
            Else
                e.Text = "***"
            End If
        End If
    Case "数量"
        If e.Row("数量") < 10 Then
            e.Style = "or"
        Else
            e.style = "els"
        End If
End Select
[此贴子已经被作者于2016/9/28 20:20:34编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
武汉老杨
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:605 威望:0 精华:0 注册:2016/7/21 12:54:00
  发帖心情 Post By:2016/9/28 18:07:00 [只看该作者]

谢谢!  Select Case e.DataCol.Name    应该为: select case e.col.name
[此贴子已经被作者于2016/9/28 18:08:13编辑过]

 回到顶部