[求助]窗口运行时，执行操作后，窗口自动关闭了，想问一下是哪里出现问题了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口添加一个按钮，把代码放到窗口按钮里，不要放到表事件。然后后面代码改为

……

Dim b As New GroupTableBuilder("后果ID", DataTables("HAZOP"))

b.Groups.AddDef("后果主题ID") '根据后果主题ID分组

b.Totals.AddDef("后果主题ID", AggregateEnum.Count, "出现次数")

b.filter = Tables("HAZOP").filter

dim dt as datatable = b.Build(true) '生成统计表http://www.foxtable.com/webhelp/topics/1910.htm

Dim Cols1() As String = {"后果主题ID", "出现次数"}

Dim Cols2() As String = {"后果主题ID", "出现次数"}

For Each r1 As dataRow In dt .datarows

Dim r2 As Row = Tables("后果ID统计").AddNew()

For i As Integer = 0 To Cols1.Length - 1

r2(Cols2(i)) = r1(Cols1(i))

主题：[求助]窗口运行时，执行操作后，窗口自动关闭了，想问一下是哪里出现问题了？