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 & "秒") '计算并显示执行代码所花费的秒数
这段代码，经测试，效率较慢，一般情况下需要一秒钟时间才能完成，请教各位老师，怎样才能使效率变高？
加好友 
发短信
Post By：2016/11/12 23:33:00 [显示全部帖子]
