主题：程序崩溃

核对表里大概3000行数据，明细列表里大概500个明细表，代码没错，但是找10几个出来就崩溃了，咋办？

 For Each olddr As DataRow In DataTables("核对表").DataRows
    Dim no As String = olddr("编号")
    For Each dr As DataRow In DataTables("明细列表").DataRows
        Dim tblName As String = dr("列表名称")
        If DataTables.Contains(tblName) = False Then
            DataTables.Load(tblName)
        End If
        Dim newdr As DataRow = DataTables(tblName).Find("编号 = '" & no & "'")
        If newdr IsNot Nothing Then
            olddr("名称") = newdr("名称")
            DataTables.UnLoad(tblName)
            Exit For
        Else
            DataTables.UnLoad(tblName)
        End If
    Next
Next

 汗死，谁叫你做500个明细表的？这样的设计根本就是有问题的。

 每个表几千条数据，都是excel导进来的，我咋整？合并起来？那单表的数据岂不是更大？多少数据里面能不崩溃？

一个表几百万的数据都只能说是一般般的，几千条数据只能说是汗毛，连牛毛都算不上

 好吧，试一下，谢谢