 加好友  发短信
等级：超级版主
帖子：110574
积分：562760
威望：0
精华：9
注册：2015/6/24 9:21:00
|
 Post By：2016/12/5 15:12:00 [显示全部帖子]
有些是表达式列来的吧
Dim y As Integer = e.Form.Controls("NumericComboBox1").Value '指定年份Dim m As Integer = e.Form.Controls("ComboBox1").Value '指定月份Dim dt1 As New Date(y, m, 1)Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取该月的最后一天Dim b1 As New GroupTableBuilder("月报表",datatables("日报表"))b1.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" b1.Groups.AddDef("日期",DateGroupEnum.month,"月份")b1.Groups.AddDef("姓名")b1.Groups.AddDef("名称")b1.Groups.AddDef("单价")b1.Totals.AddDef("数量")b1.Totals.AddDef("金额")b1.VerticalTotal = Trueb1.Build Tables("月报表").SetColVisibleWidth("月份|45|姓名|60|名称|100|单价|45|数量|60|金额|70") Forms("月报表").Show()
|
|
