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

要求输入年份和月份变量值，自动分别生成建行汇总表

1、建行汇总表来源于建行对账单，

2、分类字段是交易时间（按年份和月份）、账号、户名

3、汇总字段是借方和贷方，汇总值计入建行汇总表的借方发生额和贷方发生额

下载信息 [文件大小：下载次数： ]
点击浏览该文件:资金管理系统.rar

[此贴子已经被作者于2011-10-7 11:14:55编辑过]

交易时间是日期型而非字符型

Dim t As Table = Tables(e.form.Name & "_Table1")

Dim y, m As Integer

y = e.Form.Controls("ComboBox1").value

m= e.sender.value

Dim fl As String = "交易时间>= #" & New Date(y,m,1) & "# And 交易时间<= #"

fl+ = New Date(y,m,Date.DaysInMonth(y,m)) & "#"

If DataTables("建行对账单").Find(fl) IsNot Nothing Then

Dim b As New GroupTableBuilder("建行汇总表",DataTables("建行对账单"))

b.Groups.AddDef("交易时间",DateGroupEnum.Year,"交易年份")

b.Groups.AddDef("交易时间",DateGroupEnum.Month,"交易月份")

b.Groups.AddDef("账号")

b.Groups.AddDef("户名")

b.Totals.AddDef("贷方","贷方发生额")

b.Totals.AddDef("借方","借方发生额")

b.VerticalTotal =True

b.Filter = fl

t.DataSource =b.BuildDataSource()

Else

MessageBox.show("不存在此年月的数据!请重新输入")

End If

[此贴子已经被作者于2011-10-7 13:02:34编辑过]

以下是引用don在2011-10-7 13:02:00的发言：

交易时间是日期型而非字符型

Dim t As Table = Tables(e.form.Name & "_Table1")

Dim y, m As Integer

y = e.Form.Controls("ComboBox1").value

m= e.sender.value

Dim fl As String = "交易时间>= #" & New Date(y,m,1) & "# And 交易时间<= #"

fl+ = New Date(y,m,Date.DaysInMonth(y,m)) & "#"

If DataTables("建行对账单").Find(fl) IsNot Nothing Then

Dim b As New GroupTableBuilder("建行汇总表",DataTables("建行对账单"))

b.Groups.AddDef("交易时间",DateGroupEnum.Year,"交易年份")

b.Groups.AddDef("交易时间",DateGroupEnum.Month,"交易月份")

b.Groups.AddDef("账号")

b.Groups.AddDef("户名")

b.Totals.AddDef("贷方","贷方发生额")

b.Totals.AddDef("借方","借方发生额")

b.VerticalTotal =True

b.Filter = fl

t.DataSource =b.BuildDataSource()

Else

MessageBox.show("不存在此年月的数据!请重新输入")

End If

[此贴子已经被作者于2011-10-7 13:02:34编辑过]

我已经做好了一个统计窗口，输入年份和月份值后，点按钮就生成建行汇总表数据，大家给我再看看，窗口无法运行

此主题相关图片如下：未命名123.jpg

删除原来的[建行汇总表],按钮代码:

Dim y, m As Integer

y = e.Form.Controls("ComboBox1").value

m= e.Form.Controls("ComboBox2").value

Dim fl As String = "交易时间>= #" & New Date(y,m,1) & "# And 交易时间<= #"

fl+ = New Date(y,m,Date.DaysInMonth(y,m)) & "#"

If DataTables("建行对账单").Find(fl) IsNot Nothing Then

Dim b As New GroupTableBuilder("建行汇总表",DataTables("建行对账单"))

b.Groups.AddDef("交易时间",DateGroupEnum.Year,"交易年份")

b.Groups.AddDef("交易时间",DateGroupEnum.Month,"交易月份")

b.Groups.AddDef("账号")

b.Groups.AddDef("户名")

b.Totals.AddDef("贷方","贷方发生额")

b.Totals.AddDef("借方","借方发生额")

b.VerticalTotal =True

b.Filter = fl

b.Build

MainTable = "建行汇总表"

Else

MessageBox.show("不存在此年月的数据!请重新输入")

End If

主题：生成汇总表