以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助,代码效率问题! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92785) |
-- 作者:wandongliang -- 发布时间:2016/11/12 23:33:00 -- 求助,代码效率问题! Dim st As Date = Date.Now \'将开始时间保存在变量st中 Dim txt As String = e.Form.Controls("TextBox1").text txt = "\'%" & txt & "%\'" Tables("商品信息表").Filter = "商品名称 Like " & txt & " Or 商品编号 Like " & txt & " Or 拼音码 Like " & txt Dim a As Double a = Tables("商品信息表").Compute("count(永久编号)","商品名称 Like " & txt & " Or 商品编号 Like " & txt & " Or 拼音码 Like " & txt) If a = 1 Then Tables("零售总表").Current("永久编号") = Tables("会员信息表").Current("永久编号") Tables("零售总表.零售明细表").AddNew Tables("零售总表.零售明细表").Current("商品编号") = Tables("商品信息表").Current("永久编号") e.Form.Controls("TextBox1").text = "" e.Form.Controls("TextBox1").Select ElseIf a = 0 Then MessageBox.Show("不存在此商品,请重新输入") e.Form.Controls("TextBox1").text = "" ElseIf a > 1 Then forms("查询").open() forms("查询").Controls("TextBox1").text = e.Form.Controls("TextBox1").text End If MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") \'计算并显示执行代码所花费的秒数 这段代码,经测试,效率较慢,一般情况下需要一秒钟时间才能完成,请教各位老师,怎样才能使效率变高?
|
-- 作者:y2287958 -- 发布时间:2016/11/13 7:53:00 -- 用find试试 |
-- 作者:有点色 -- 发布时间:2016/11/13 9:33:00 -- 试试
Dim st As Date = Date.Now \'将开始时间保存在变量st中
或者加上 stopredraw或systemready
http://www.foxtable.com/webhelp/scr/0453.htm
http://www.foxtable.com/webhelp/scr/2218.htm
|