以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载及执行效率问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132057)

--  作者:weibu
--  发布时间:2019/3/12 22:42:00
--  加载及执行效率问题

Dim Filter As String
Filter = "盘点部门 = \'" & cq & "\'And 盘点单号 = \'" & txt & "\'"
DataTables("盘点单据").LoadFilter = Filter
DataTables("盘点单据").Load        ’老师执行此语句前,打开“盘点单据”表的加载数,并设置了每页加载行数,如果表数据量很大,这两个语句是否有冲突?

Dim fbs As List(Of String) = DataTables("盘点单据").GetValues("商品编码",Filter) \'找到本次盘点的所有商品
For Each fb As String In fbs 
Dim syms As List(of DataRow) = DataTables("溯源码").SQLSelect("当前所在部门 = \'" & cq & "\' And 是否可用 = 1 And 商品编码 = \'" & fb & "\'") \'找到溯源码中盘点商品的溯源码
      For Each sym As DataRow In syms
 fr = DataTables("盘点单据").Find("[溯源码] = \'" & sym("子溯源码") & "\'")  \'老师这个地方用find语句是否可以?  
但数据量大时,我发现满足条件的“溯源码”数据并没有完全执行下面代码,只执行了一部分数据;用sqlfind怕数据量大,执行的慢;
用的是SQLSERVER数据库,请教改如何修改?
 If fr IsNot Nothing Then
               fr("审核人") = dr("姓名")
        fr("审核日期") = Date.Now   \'如果存在审核盘点单据

[此贴子已经被作者于2019/3/12 22:44:28编辑过]

--  作者:有点甜
--  发布时间:2019/3/13 9:51:00
--  

 

加入output.show,弹出对应信息看看,看是否执行到了那些代码,如果没有执行,看看条件什么的是否正确。