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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:日常记账.foxdb

打开程序后运行分组筛选窗体选择“明细”或“费率”单选框第一次不会出错，第二次替换选择就会出错

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编辑过]

窗体中的收入明细窗体中的代码是分组筛选窗体中的代码为什么在收入明细窗体运行出错呢？

选择明细单选框时数据筛选出来了就是不统计

已解决

[此贴子已经被作者于2020/3/1 1:10:41编辑过]

主题：关于窗体表问题