Foxtable(狐表)用户栏目专家坐堂 → 这样分次处理也会出现错误?!


  共有1669人关注过本帖平板打印复制链接

主题:这样分次处理也会出现错误?!

帅哥哟,离线,有人找我吗?
kylin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
这样分次处理也会出现错误?!  发帖心情 Post By:2018/9/7 11:46:00 [只看该作者]

.NET Framework 版本:2.0.50727.8825
Foxtable 版本:2018.8.30.1
错误所在事件:加载[HstDtl]失败!
详细错误信息:
查询超时已过期

有关代码如下:IDDtl表中的数据是HstDtl中ID唯一值的信息,HstDtl中每一个ID的相关记录不会超过100行
For i As Integer = 6272450 To 8974340
    For k As Integer = 1 To 2702       
        Dim m,n As Integer
        m = 6272449 + (k-1) * 1000 + 1
        n = 6272449 + k * 1000
        DataTables("IDDtl").LoadFilter = "[_Identify] >= " & m & " And [_Identify] <= " & n
        DataTables("IDDtl").Load
        For Each dr As Row In Tables("IDDtl").Rows
            Dim id As String = dr("ID")
            output.Show(id)
            DataTables("HstDtl").LoadFilter = "[ID] = '" & id & "'"
            DataTables("HstDtl").Load
            Tables("HstDtl").Sort = "出货日期"
            Dim t As Integer = Tables("HstDtl").Rows.Count
            Dim r As Row = Tables("HstDtl").Rows(n-1)
            r("Lst") = t-1
            DataTables("HstDtl").ReplaceFor("TJ",True)
            DataTables("HstDtl").Save
        Next
    Next
Next
MessageBox.Show("OK")

 回到顶部