Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码效率求助


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

主题：代码效率求助
帅哥哟，离线，有人找我吗？
大红袍
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

尝试15楼代码。然后再测试LoadTop的设置。
 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/4/27 21:04:00 [只看该作者]

15楼代码 是没问题，但这是两个问题

官方帮助 里给出的好几个官方 方法实测就出问题呀
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我测试没问题啊

 

Dim dt As DataTable = DataTables("表A")
dt.LoadFilter = ""
dt.LoadTop = 5
dt.Load
dt.SQLReplaceFor("第一列", 123456)
dt.LoadFilter = ""
dt.LoadTop = "100 percent"
dt.Load
 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/4/28 11:42:00 [只看该作者]

SystemReady = False
DataTables("物料").ReplaceFor("名称","")
DataTables("物料").ReplaceFor("规格型号","")
DataTables("物料").save
Dim st As Date = Date.Now  '要测试耗时的代码
Dim drs As List(Of DataRow)
Dim drbs As List(Of DataRow)
drs = DataTables("物料测试").Select("测试 = true")
Dim alldrs As New Dictionary(Of List(Of DataRow), DataRow)
For Each dr As DataRow In drs
    drbs = DataTables("物料").SQLSelect("[代码] = '" & dr("代码") & "'")
     For Each drb As DataRow In drbs
        drb("名称") = dr("名称")
        drb("规格型号") = dr("规格型号")
    Next
    DataTables("物料").SQLUpdate(drbs)   
Next
SystemReady = True
msgbox("完成耗时:" & Format((Date.Now - st).TotalSeconds,"0.0000") & "秒")

这段代码更新 300条后台数据显示 要 25秒 如何优化才能加快速度
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 看15楼代码啊。

 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/4/28 12:28:00 [只看该作者]

Dim cmda As new SQLCom  mand
cmda.Com  mandText = "Upd  ate 物料,物料测试 Set 物料.名称 = 物料测试.名称,物料.规格型号 = 物料测试.规格型号  where 物料.代码 = 物料测试.代码"
cmda.Execu  teNonQuery

这在内部数据源 不可以用？ 提示 物料 表 不存在
[此贴子已经被作者于2016/4/28 12:29:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim cmda As new SQLCommand
cmda.CommandText = "Up date {物料},{物料测试} Set {物料}.名称 = {物料测试}.名称,{物料}.规格型号 = {物料测试}.规格型号  where {物料}.代码 = {物料测试}.代码"
cmda.ExecuteNonQuery

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