主题：定期删除30天前文件

提示很明显了，这个窗口表【SYS_记录窗口_Table1】没有这个名称的列“记录窗口名”

Dim cm As WinForm.Com boBox = e.Form.Controls("ComboBox1")      '里面有'投标统计,中标统计,开piao统计'

Dim mm As String = cm.Text

Se lect Case mm

    Case "投标统计"              

        Tables("首面_开标本年").Fill("Se lect [_Identify],[项目名称],[资质],[年份],[月份],[统计],[区域],[预算造价],[到场人员],[开标时间] Fr om {投标立项} Where year([开标时间]) = " & Date.Today.year,"外部数据源",False)

        Dim b3 As New GroupTableBuilder("统计表_开标本年",DataTables("首面_开标本年"))        

        b3.Groups.AddDef("开标时间",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称        

        b3.Groups.AddDef("开标时间","月") '添加日期列用于分组,并用"月"代替原名称        

        b3.Totals.AddDef("统计") '添加数量列用于统计        

        b3.Subtotal = True '生成汇总模式        

        b3.SubtotalLevel = 0 '只生成总计行        

        b3.Build '生成统计表        

    Case "中标统计"        

        代码2        

    Case "开piao统计"        

        代码3        

End Sele ct