.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")