老师:
有库存表
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
现在是以‘武汉公司’登录,希望能显示武汉公司小计中的“金额”数据 以及 总计中的“金额”数据。
请教 在哪里改?