- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成汇总表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13280)
-- 发布时间：2011/10/7 11:00:00
-- 生成汇总表
要求输入年份和月份变量值，自动分别生成建行汇总表
1、建行汇总表来源于建行对账单，
2、分类字段是交易时间（按年份和月份）、账号、户名
3、汇总字段是借方和贷方，汇总值计入建行汇总表的借方发生额和贷方发生额
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:资金管理系统.rar |
[此贴子已经被作者于2011-10-7 11:14:55编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2011/10/7 15:15:00
--
以下是引用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编辑过]
我已经做好了一个统计窗口，输入年份和月份值后，点按钮就生成建行汇总表数据，大家给我再看看，窗口无法运行
-- 发布时间：2011/10/7 15:17:00
--
此主题相关图片如下：未命名123.jpg
-- 发布时间：2011/10/7 16:23:00
--
删除原来的[建行汇总表],按钮代码:
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