主题：程序发生无法处理的异常错误

1、做个例子上来测试；

2、为什么要建1000个表那么变态啊，你代码肯定有问题。

 根本就不需要生成一个表，你这样做是多余的。

 如果要画图，你可以直接弄。请直接说你要做什么，做个实例上来。

那你就不要循环build表格。

Dim arys1 As List(of String) = DataTables("测试").GetValues("考号") '记录第一分组列下有多少个不同值
Dim nb As new List(of String)
nb.add("A等级")
nb.add("B等级")
nb.add("C等级")
nb.add("D等级")
Dim shu1 As Integer =0

'建一个临时表,每一个表就作一个图
Dim dtb As New DataTableBuilder("作图")
dtb.AddDef("考号", Gettype(String), 32)
dtb.AddDef("成绩", Gettype(Single))
dtb.build

For Each na As String In arys1
    Tables("作图").DataTable.DataRows.Clear
    Dim drs As new List(of DataRow)
    drs = DataTables("测试").Select("[考号]='" & na & "'")
    For Each dr As DataRow In  drs
        Dim r As Row = Tables("作图").AddNew
        For i As Integer =0 To 3
            r("成绩") = dr(nb(i))
        Next
    Next
    shu1 =shu1+1
    If shu1 = 1100 Then
        messagebox.show("已执行1100次")
        Return
    End If
    '运行1000多次就会出错
    '对形成的每一个临时表,进行第二部分工作,也就是3000多个学生作3000多个图,所以生成3000多个临时表
    'Functions.Execute("ldtzcgths") '这个是作图函数
Next
messagebox.show("已完成作图!")

重复new和重复build，这个本身，就是非常错误的做法，本来几秒钟完成的事，增加几十倍时间和几十倍内存，连电脑都看不下去所以报错了。

循环的时候，最好这样

Dim doc As New PrintDoc '定义一个报表

........

doc.dispose
doc = nothing