原来的代码：
Select Case e.StripItem.Name
Case "报表"
Dim t As Table = Tables("采购计划_Table1")
Dim g As New GroupTableBuilder("统计表2", t.DataTable)
g.Filter = t.filter
g.Groups.AddDef("日期")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.VerticalTotal = True
g.Build()
Forms("通用临时表窗口").open
Tables("通用临时表窗口_Table1").DataSource = g.BuildDataSource()
Tables("通用临时表窗口_Table1").AutoSizeCols()
End Select
后来把表格中日期列删除了，所以把代码修改如下：
Select Case e.StripItem.Name
Case "报表"
Dim t As Table = Tables("采购计划_Table1")
Dim hrq As String=format(t.DataRow("计划日期"), "yyyy") & format(t.DataRow("计划日期"), "MM") & format(t.DataRow("计划日期"), "dd")
Dim g As New GroupTableBuilder("统计表2", t.DataTable)
g.Filter = t.filter
g.Groups.AddDef("hrq")
g.Groups.AddDef("配送公司")
g.Totals.AddDef("金额")
g.VerticalTotal = True
g.Build()
Forms("通用临时表窗口").open
Tables("通用临时表窗口_Table1").DataSource = g.BuildDataSource()
Tables("通用临时表窗口_Table1").AutoSizeCols()
End Select
但这新的代码报错，不知道怎么修改，望老师指点，谢谢
加好友 
发短信
Post By：2018/6/14 10:04:00 [显示全部帖子]
