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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于自动合计模式中的计算问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130456)

--  作者：km007
--  发布时间：2019/1/22 14:50:00
--  关于自动合计模式中的计算问题

如下图所示：

最后一行（绿色行为自动合计行），数量和金额均已自动合计

金额 = 数量 * 单价得出

均价 = 金额 / 数量得出

问题：如何自动合计行中的合计均价也是按公式合计金额 / 合计数量得出呢？

此主题相关图片如下：qq图片20190122144111.png

--  作者：有点甜
--  发布时间：2019/1/22 14:54:00
--

比较麻烦

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=121115&skin=0

--  作者：km007
--  发布时间：2019/1/22 15:19:00
--

解决了，谢谢

--  作者：km007
--  发布时间：2019/1/25 0:01:00
--

如下图所示：如何将该固定行右边那个小尾巴去掉，或者颜色跟表的空白区颜色一致？

此主题相关图片如下：1.jpg

例子：

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:自定义固定合计行.table

--  作者：有点甜
--  发布时间：2019/1/25 9:42:00
--

如

        With huizong
            .name = "Myhuizong"
            .BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None \'无边框
            .Cols.Count = sender.Cols.Count
            .rows.count = 2
            .Rows(0).Height = 0    \'隐藏标题行
            .Enabled = False    \'不能使用控件
            .styles.emptyarea.backcolor = sender.styles.emptyarea.backcolor
        End With

--  作者：km007
--  发布时间：2020/4/21 13:54:00
--

此主题相关图片如下：qq图片20200421135253.png

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:自定义固定合计行.table

--  作者：有点蓝
--  发布时间：2020/4/21 14:01:00
--
函数
……
\'hui.rows(1)(sender.cols("客户ID").Index) = "我想怎么显示就怎么显示"
hui.rows(1)(sender.cols("余额").Index) = hui.Rows(1)(sender.cols("收入").Index) - hui.Rows(1)(sender.cols("支出").Index)
sender.Cols(0).width = 30
hui.Cols(0).width = 30
\'End If
Else \'检查并删除控件
If sender.Controls.ContainsKey("Myhuizong") Then \'删除控件
sender.Controls.RemoveByKey("Myhuizong")
End If
End If

--  作者：km007
--  发布时间：2020/4/21 14:19:00
--
合计这个字体颜色在哪里修改？

--  作者：有点蓝
--  发布时间：2020/4/21 14:51:00
--

Dim sender As object = Args(0)
Dim e As object = Args(1)
If sender.Name = "" Then Return Nothing \'没有设置好Table 和底层的关联
If Tables.Contains(sender.Name) = False Then Return Nothing \'不存在就退出
Dim tb As Table = Tables(sender.Name)
If tb.GrandTotal Then \'如果处于合计模式
Dim hg As Integer = sender.rows(sender.rows.count -1).Height \'控件高
If hg = -1 Then
hg = sender.rows(sender.rows.count -1).HeightDisplay
End If
Dim gh = sender.Height - 1
If sender.ScrollBarsVisible = 1 OrElse sender.ScrollBarsVisible = 3 Then \'显示了水平滚动条
gh = gh - 19
End If
If sender.Controls.ContainsKey("Myhuizong") = False Then \'不存在汇总控件,则添加
Dim huizong As new C1.Win.C1FlexGrid.C1FlexGrid
With huizong
.name = "Myhuizong"
.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None \'无边框
.Cols.Count = sender.Cols.Count
.rows.count = 2
.Rows(0).Height = 0 \'隐藏标题行
.Enabled = False \'不能使用控件
\'.styles.emptyarea.backcolor = sender.styles.emptyarea.backcolor
.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None \'不显示焦点框
.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never \'不高亮显示选定区
End With
sender.Controls.add(huizong) \'加入控件
End If
Dim hui As C1.Win.C1FlexGrid.C1FlexGrid = sender.Controls("Myhuizong")
If sender.ScrollBarsVisible = 0 OrElse sender.ScrollBarsVisible = 2 Then \'显示了垂直滚动条
hui.ScrollBars = 2
Else
hui.ScrollBars = 0
End If
With hui \'调整位置
.left = 0
If sender.Rows(sender.Rows.count -1).Top < sender.Height - sender.rows(sender.rows.count -1).Height * 2 Then
.Top = sender.Rows(sender.Rows.count -1).Top \'sender.GetCellRect(sender.Rows.count-1, 1).y
Else
.top = gh - hg - 1
End If
.width = sender.width -19
.Height = 21 \'hg + 2
.Rows(1).Height = 21 \' hg
End With
Dim sLightBlue As C1.Win.C1FlexGrid.CellStyle = hui.Styles.Add("LightBlue")
sLightBlue.BackColor = Color.PaleGreen
sLightBlue.ForeColor = Color.red
Dim i As Integer
For i = 0 To sender.Cols.count -1
If sender.Cols(i).width = -1 Then \'同步列宽
hui.Cols(i).width = sender.Cols.DefaultSize
Else
hui.Cols(i).width = sender.Cols(i).width
End If
hui.Cols(i).Style = sender.Cols(i).Style \'同步列样式
\'hui.BackColor = Color.Blue
If i > 0 Then hui.SetCellStyle(1,i,sLightBlue)
hui.Cols(i).Visible = sender.Cols(i).Visible \'同步隐藏列
Next
hui.Cols.Frozen = sender.Cols.Frozen \'同步冻结列
hui.ScrollPosition = sender.ScrollPosition \'同步水平滚动
hui(1,1) = "合计"
For i = 2 To sender.Cols.count -1
If tb.Cols(i-1).GrandTotal Then
hui(1,i) = sender.Aggregate(C1.Win.C1FlexGrid.AggregateEnum.Sum,0,i,sender.Rows.count-2,i,1)
Else
hui(1,i) = Nothing
End If
Next

\'hui.rows(1)(sender.cols("客户ID").Index) = "我想怎么显示就怎么显示"
hui.rows(1)(sender.cols("余额").Index) = hui.Rows(1)(sender.cols("收入").Index) - hui.Rows(1)(sender.cols("支出").Index)
sender.Cols(0).width = 30
hui.Cols(0).width = 30
\'End If
Else \'检查并删除控件
If sender.Controls.ContainsKey("Myhuizong") Then \'删除控件
sender.Controls.RemoveByKey("Myhuizong")
End If
End If

--  作者：km007
--  发布时间：2020/4/22 1:01:00
--

此主题相关图片如下：qq图片20200422005825.png

此主题相关图片如下：qq图片20200422000937.png

此主题相关图片如下：qq图片20200422000407.png

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