以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  系统假死问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78420)
--  作者：qianqian1530
--  发布时间：2015/12/8 23:30:00
--  系统假死问题

Data Tabl es("表A").Fill("Sele ct * F rom  {订单}", "nwind", False)

用 fill 的话,可以正常加载数据, 但是
用下面的代码的话, 系统会 假死, 十几分钟~~ 
前几天还好好的,但昨天开始突然就假死了,
有什么别的办法么?


SystemR eady = False
Try
    Dim cmd As New SQL Comm and
    Dim dt As DataTable
    Statu sBar.Message1= "システムデータ更新中"
    Statu sBar.Progr essBar.Visible =True
    cm d.Connect i
    cm d.Com mandText = "SE LECT COU NT(*) FROM {st_7610490_Data}"
    Dim sum As Single =cmd.Execut eScalar()
    Status Bar.Progr essBar.Maximum = sum    \'设置最大值
    Statu sBar.Progr essBar.Minimum = 0 \'设置最小值
    Status Bar.Progr essBar.Value = 0
    cmd.C ommandT ext = "SELE CT * F rom {st_7610490_Data}"
    dt = c md.ExecuteR eader()
    DataTables("Data").DataRows.Clear
    For Each dr As DataRow In dt.DataRows
        If DataTables("Data").Find("商品型番 = \'" & dr("商品型番") & "\'") Is Nothing Then
            Dim nr As DataRow = DataTables("Data").AddNew()
            For Each dc As Data Col In dt.DataCols
                nr(dc.name) = dr(dc.name)
            Next
            Statu sBar.Prog essBar.Value = StatusB ar.Progres sBar.Value + 1
            Applic ation.Doeve nts
        End If
    Next
    Sta tusBar.Res et()
    
Catch ex As Exception
    Messag eBox.Show("追加数据失败")
End Try
System Ready = True
Return Nothing
--  作者：qianqian1530
--  发布时间：2015/12/8 23:33:00
--  
而且,外部表,才900行,左右, 也不多啊, 但是假死```

数据库测试链接的话,很快,也没问题,
就是加载数据的时候 出现假死
--  作者：大红袍
--  发布时间：2015/12/9 9:21:00
--  

看看这里，查询和赋值，不要一起用

 

http://www.foxtable.com/help/topics/2225.htm

 

或者，简单一点的，你可以全部添加进去，然后再删除重复也行

 

http://www.foxtable.com/help/topics/2712.htm