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

如果使用了固定合计行的用法，控件的名称就会变成表格的名称。使用控件名称的地方就要改为表名称

Dim t As WinForm.Table = Forms("分组筛选窗体").Controls("分组筛选窗体_srTable")

Dim t As Table = Forms("分组筛选窗体").Controls("分组筛选窗体_srTable").table

在t.grid.name = t.name赋值之前还是原来的控件名称，赋值之后才会变成表名称

Dim t As Table = Tables("分组筛选窗体_srTable")

表格控件名称原本是srTable，表格的表名是"分组筛选窗体_srTable"，t.Grid.Name = t.Name赋值后，控件名称才会变成表格名称：分组筛选窗体_srTable

[此贴子已经被作者于2020/2/29 15:49:24编辑过]

表格的名称没有变，只是控件的名称变了。搞不懂就上传实例

Case zonglei=e.Form.Controls("mxRadioButton").Checked

Tables("分组筛选窗体_srTable").GrandTotal = False

Tables("分组筛选窗体_srTable").DataSource = DataTables("收支交易流水")

Tables("分组筛选窗体_srTable").Filter = "[交易类型] = '收入'"

Tables("分组筛选窗体_srTable").SetColVisibleWidth("单号|150|记账日期|100|收支分类|200|收入金额|90|所属账户|150|经手人|90|备注|360")

Tables("分组筛选窗体_srTable").Filter = Filter

Dim dt As DataTable = Tables("分组筛选窗体_srTable").DataTable

With dt

.DataCols("收支分类").Caption = "收入分类"

.DataCols("备注").Caption = "说明"

.BuildHeader()

End With

明细本来也没有做统计，如果要做，重新设置

Case zonglei=e.Form.Controls("mxRadioButton").Checked

Tables("分组筛选窗体_srTable").GrandTotal = False

Dim t As Table = Tables("分组筛选窗体_srTable")

removeHandler t.grid.Paint, AddressOf Grid_Paint

Tables("分组筛选窗体_srTable").DataSource = DataTables("收支交易流水")

Tables("分组筛选窗体_srTable").Filter = "[交易类型] = '收入'"

Tables("分组筛选窗体_srTable").SetColVisibleWidth("单号|150|记账日期|100|收支分类|200|收入金额|90|所属账户|150|经手人|90|备注|360")

Tables("分组筛选窗体_srTable").Filter = Filter

Dim dt As DataTable = Tables("分组筛选窗体_srTable").DataTable

With dt

.DataCols("收支分类").Caption = "收入分类"

.DataCols("备注").Caption = "说明"

.BuildHeader()

End With

t.Cols("收入金额").GrandTotal = True '指定要合计的列

t.GrandTotal = True '显示合计模式

t.Grid.Name = t.Name

AddHandler t.grid.Paint, AddressOf Grid_Paint

[此贴子已经被作者于2020/2/29 17:48:17编辑过]

主题：关于窗体表问题