Dim g As New CrossTableBuilder("分类流水汇总统计表", DataTables("现金账"))
        g.HGroups.AddDef("制单日期", DateGroupEnum.Year, "年")
        g.HGroups.AddDef("制单日期", "月")
        g.VGroups.AddDef("币种")
        g.Totals.AddDef("收入", "收入")
        g.Totals.AddDef("支出", "支出")
        g.OrderByTotal = True
        g.VerticalTotal = True
        g.Subtotal = True
        g.FromServer = True
        g.Build()       
        Tables("现金账_table2").DataSource =g.BuildDataSource
上述代码放在按钮click事件中 如果点击第二次 窗口就会自动关闭 我判断是已经生成了一个表 所以将代码改成下面的

For Each dt As DataTable In DataTables
    If dt.name="分类流水汇总统计表" Then       
        Tables("现金账_table2").DataSource=DataTables("分类流水汇总统计表")
        Return
    Else       
        Dim g As New CrossTableBuilder("分类流水汇总统计表", DataTables("现金账"))
        g.HGroups.AddDef("制单日期", DateGroupEnum.Year, "年")
        g.HGroups.AddDef("制单日期", "月")
        g.VGroups.AddDef("币种")
        g.Totals.AddDef("收入", "收入")
        g.Totals.AddDef("支出", "支出")
        g.OrderByTotal = True
        g.VerticalTotal = True
        g.Subtotal = True
        g.FromServer = True
        g.Build()       
        Tables("现金账_table2").DataSource =g.BuildDataSource
        Exit For
    End If
Next

还是会在第二次点击的时候导致窗口关闭

有没有方法清除已经生成的datatable

红色代码多余。

        Dim g As New CrossTableBuilder("分类流水汇总统计表", DataTables("现金账"))
        g.HGroups.AddDef("制单日期", DateGroupEnum.Year, "年")
        g.HGroups.AddDef("制单日期", "月")
        g.VGroups.AddDef("币种")
        g.Totals.AddDef("收入", "收入")
        g.Totals.AddDef("支出", "支出")
        g.OrderByTotal = True
        g.VerticalTotal = True
        g.Subtotal = True
        g.FromServer = True
        \'g.Build()       
        Tables("现金账_table2").DataSource =g.BuildDataSource