不需要卸载,不要生成到主表区,正确用法
AfterLoad事件,增加了两个临时表
'增加临时表==============================================
'------------------------------------------------------ 报表所有列
Dim dt1 As New DataTableBuilder("报表所有列")
dt1.AddDef("列标题", Gettype(String), 16)
dt1.AddDef("列名称", Gettype(String), 50)
Tables(e.Form.name & "_table1").DataSource = dt1.BuildDataSource()
'------------------------------------------------------ 报表打印列
Dim dt2 As New DataTableBuilder("报表打印列")
dt2.AddDef("列标题", Gettype(String), 16)
dt2.AddDef("列宽", Gettype(Integer))
dt2.AddDef("左中右", Gettype(String), 16)
dt2.AddDef("列名称", Gettype(String), 50)
Tables(e.Form.name & "_table2").DataSource = dt2.BuildDataSource()