以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  程序崩溃  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94553)

--  作者:goldenfont
--  发布时间:2016/12/26 18:30:00
--  程序崩溃
核对表里大概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
--  作者:有点色
--  发布时间:2016/12/26 18:37:00
--  
 汗死,谁叫你做500个明细表的?这样的设计根本就是有问题的。
--  作者:goldenfont
--  发布时间:2016/12/26 18:49:00
--  
 每个表几千条数据,都是excel导进来的,我咋整?合并起来?那单表的数据岂不是更大?多少数据里面能不崩溃?
--  作者:有点蓝
--  发布时间:2016/12/26 20:11:00
--  
一个表几百万的数据都只能说是一般般的,几千条数据只能说是汗毛,连牛毛都算不上
--  作者:goldenfont
--  发布时间:2016/12/27 8:12:00
--  
 好吧,试一下,谢谢