这是窗口的AfterLoad事件，增加了两个临时表

\'增加临时表==============================================

\'------------------------------------------------------ 报表所有列
Dim dt1 As New DataTableBuilder("报表所有列")
dt1.AddDef("列标题", Gettype(String), 16)
dt1.AddDef("列名称", Gettype(String), 50)
dt1.Build()
Tables("报表所有列").Visible = True
\'------------------------------------------------------ 报表打印列
Dim dt2 As New DataTableBuilder("报表打印列")
dt2.AddDef("列标题", Gettype(String), 16)
dt2.AddDef("列宽", Gettype(Integer))
dt2.AddDef("左中右", Gettype(String), 16)
dt2.AddDef("列名称", Gettype(String), 50)
dt2.Build()
Tables("报表打印列").Visible = True

\'绑定表================================================
Tables(e.Form.name & "_table1").DataSource = DataTables("报表所有列")
Tables(e.Form.name & "_table2").DataSource = DataTables("报表打印列")

这是窗口的AfterClose事件，删除两个临时表

If DataTables.Contains("报表打印列")  Then
    DataTables.Unload("报表打印列")
End If
If DataTables.Contains("报表所有列")  Then
    DataTables.Unload("报表所有列")
End If

如果增加表不绑定，关闭窗口后删除两个表没有问题，

绑定两个表，关闭窗口后删除任何一个表也没问题，但删两个表时总报错，提示没有这个表