Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多选数据代码优化问题


  共有2493人关注过本帖树形打印复制链接

主题：多选数据代码优化问题
帅哥哟，离线，有人找我吗？
supwork
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：688 积分：4903 威望：0 精华：0 注册：2013/10/27 17:14:00 		多选数据代码优化问题  发帖心情 Post By：2015/9/16 12:07:00 [只看该作者]

        Dim drs As List(Of DataRow) = tb.DataTable.Select("多选 = true") '遍历所有已经勾选的行
        DataTables("出入记录_明细表").StopRedraw
        For Each r As DataRow In drs
            If  r("多选")= True Then '取消勾选此行
                Dim drr As Row = Tables("出入记录_主表.出入记录_明细表").AddNew
                drr("产品编码")= r("产品编码")
                drr("产品名称") = r("产品名称")
                drr("产品规格") = r("产品规格")
                drr("单位") = r("单位")
            End If
        Next
        DataTables("出入记录_明细表").ResumeRedraw

这个循环遍历从目标表选择多条数据返回到另一个目标表中，如果选择的数据少，几条或几十条，速度感觉还可以

 

如果选择的数据上百条后，感觉效率不高，有明显的等待时间。

 

如何优化这段代码或数据返回方式？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/16 14:21:00 [只看该作者]

Dim drs As List(Of DataRow) = tb.DataTable.Select("多选 = true") '遍历所有已经勾选的行
Tables("出入记录_主表.出入记录_明细表").StopRedraw
SystemReady = False
For Each r As DataRow In drs
    Dim drr As Row = Tables("出入记录_主表.出入记录_明细表").AddNew
    drr("产品编码")= r("产品编码")
    drr("产品名称") = r("产品名称")
    drr("产品规格") = r("产品规格")
    drr("单位") = r("单位")
Next
SystemReady = True
Tables("出入记录_主表.出入记录_明细表").ResumeRedraw

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04712 秒, 4 次数据查询