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

......

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)

ElseIf tb.Cols(i-1).name = "客户ID" Then

hui(1, i) = "我想怎么显示就怎么显示"

Else

hui(1,i) = Nothing

End If

不需要改任何代码

If sender.Controls.ContainsKey("Myhuizong") = False Then '不存在汇总控件,则添加

指窗口表？

窗口Afterload事件

Dim t As Table = e.Form.Controls("Table1").Table

AddHandler t.grid.Paint, AddressOf Grid_Paint

t.Cols("数量").GrandTotal = True

t.GrandTotal = True

直接在函数里面改，根据当前表名称进行判断，不同的表做不同的操作

具体想做什么？截图或者上传例子说明

根据不同表名称做不同的处理

.....

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

Select Case sender.Name

Case "窗口1_Table1"

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)

hui.rows(1)(sender.cols("客户名称").Index) = hui.Rows(1)(sender.cols("入库_数量").Index) - hui.Rows(1)(sender.cols("出库_数量").Index)

Case "窗口2_Table1"

hui.rows(1)(sender.cols("合同ID").Index) = "我是表2"

hui.rows(1)(sender.cols("余额2").Index) = 999999

hui.rows(1)(sender.cols("客户名称2").Index) = "我是表2"

End Select

'End If

Else '检查并删除控件

If sender.Controls.ContainsKey("Myhuizong") Then '删除控件

sender.Controls.RemoveByKey("Myhuizong")

End If

主题：[求助]内部函数