主题：测试中出现一个【白版】窗口？ 【3楼已还原白版过程】

代码测试运行中，出现一个【白版】窗口，而且关闭不了！ 以前也曾经出现过，是代码错误造成的（具体代码没记住），狐爸看看是什么原因 ，应该也有人遇到过的 ： 

还原白版过程：

1、打开系统下的：组合统计结果.Table － 点击小窗口的统计按钮 ＝》 跳出统计窗口。
2、打开命令窗口，执行下面代码（两次）：

'Relations.Delete("关联1")  ‘加上这个后就不会出错了，因为不删除关联就无法关闭统计表1了··没有这个就会出现白版窗口！

Dim b As New SQLGroupTableBuilder("统计表1","进货单")
b.AddTable("进货单","型号","销售单","型号") '添加统计表
b.Groups.AddExp("大类","Iif(InStr({进货单}.型号,'X')>0,'X系列','其它系列')")
b.Groups.AddExp("型号","{进货单}.型号")
b.Totals.AddExp("金额","null","进货金额_值")
b.Totals.AddExp("数量1","null","进货数量_值")
b.Totals.AddExp("数量2","null","销售数量_值")
'b.GroupProportion = True
'b.GrandProportion = True
'b.VerticalTotal = True
Tables("窗口1_Table1").DataSource  = b.BuildDataSource

If Relations.Contains("关联1") = False Then
    Relations.Add("关联1",DataTables("窗口1_Table1").DataCols("型号"),DataTables("进货单").DataCols("型号"))
End If

DataTables("窗口1_Table1").DataCols("数量1").Expression = ""
DataTables("窗口1_Table1").DataCols("数量1").Expression = "Sum(Child.数量)"
DataTables("窗口1_Table1").DataCols("金额").Expression = ""
DataTables("窗口1_Table1").DataCols("金额").Expression = "Sum(Child.金额)"

Tables("窗口1_Table1").AutoSizeCols(15)

3、此时，窗口表【死去了】， 关闭窗口（点击红X），出现错误提示，点击continue（继续）。

若继续点击小窗口的统计按钮，重复上面3、4后可以制造出N个白版窗口来。。。

就像这样的：