【求助】请教要如何优化代码：数据表窗体输入产品后 单价自动填充客户最近购买价格

5574916

这个是已经实现效果后的例子，就是如果数据多的话，输入后会有停顿现象，不知道要怎样写代码才能解决这个问题，麻烦哪位大侠有空的话帮忙修改下代码！谢谢！




内有表：[产品表]  [订单]  [订单明细]  [客户表]
查询： [历史价格查询]

【现已实现功能】 例如：新建一张单，主窗体 输入客户名称 小A 》 子窗体 输入产品1 》 单价会从[历史价格查询]中 根据（产品名称=" & "'" & Me.产品名称 & "' And 客户名称=" & "'" & Forms![主窗体]![客户名称] & "'"）  自动填充。


【意图】需要再 已有的 客户名称条件，产品名称条件 基础上 再增添一个条件：筛选出订单ID最大的 那条单价记录，并且筛选出来的单价记录不为0

------------------【需要实现的最终效果】 示例：------------------
1、新建一张单
2、主窗体中 客户名称 输入  小A
3、子窗体中 产品名称 输入 产品1
单价 自动填充  111 即为正确
-----------------------------------------------------------------------------

找了很多资料都不知道该如何实现， 源文件已经上传，不知道我这样表述，大家能否明白，可否帮忙修改下代码呢？先谢谢各位了！{:soso_e154:}  




Private Sub 产品名称_AfterUpdate()
Dim StrTemp As String
Dim rs As New ADODB.Recordset
StrTemp = "Select * From 历史价格查询 Where 产品名称=" & "'" & Me.产品名称 & "' And 客户名称=" & "'" & Forms![主窗体]![客户名称] & "'"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF = False Then
Me.单价 = rs("单价")
End If
End Sub

高高

楼主，如果是新客户的话，价格会出现错误,该怎么解决呢？？

5574916

roych 发表于 2013-2-25 13:39
速度上并不见得很糟糕啊。这是修改后的代码，供参考：

谢谢斑竹的指点，我试试看效果怎么样！

5574916

你是坏蛋 发表于 2013-2-25 19:45
记录集如果不需要修改，该用只读模式，应该会快一些吧。

记录集是不要修改的，只是获取数据，如果用只读模式，请问要如何修改代码呢？

你是坏蛋

记录集如果不需要修改，该用只读模式，应该会快一些吧。

roych

5574916 发表于 2013-2-24 00:14
具体代码要怎么写呢，我对access还不太了解，可否麻烦版主有空的时候帮忙修改下呢？
这个是已经实现效果 ...

速度上并不见得很糟糕啊。这是修改后的代码，供参考：

1. Private Sub 产品名称_AfterUpdate()
   
2. Dim StrTemp As String
   
3. Dim rs As New ADODB.Recordset
   
4. Dim LngPrice As Long
   
5. StrTemp = "Select Last([单价])  From 历史价格查询 Where 产品名称=" & "'" & Me.产品名称 & "' And 客户名称=" & "'" & Forms![主窗体]![客户名称] & "'"
   
6. rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. 'rs.MoveLast
   
8. LngPrice = rs(0)
   
9. If rs.EOF = False Then
   
10. 
    
11. Me.单价 = LngPrice
    
12. 
    
13. End If
    
14. '这两行用于关闭记录集和清空内存，视具体情况处理。
    
15. rs.Close
    
16. Set rs = Nothing
    
17. End Sub

复制代码

5574916

roych 发表于 2013-2-23 14:36
创建另一个记录集，MoveLast后读取完相关信息，传递好变量后即关闭。

具体代码要怎么写呢，我对access还不太了解，可否麻烦版主有空的时候帮忙修改下呢？
这个是已经实现效果后的例子，只差优化速度了{:soso_e154:}  

roych

创建另一个记录集，MoveLast后读取完相关信息，传递好变量后即关闭。

5574916

roych 发表于 2013-2-22 13:39
用DLast试试看（应该不是DMax吧？）或者MoveLast，读取recordset的单价字段，再传给变量。
你的意图我看得 ...

我用 MoveLast 这种方法虽然可以实现我要的效果，但是输入后有时候会出现卡顿的现象（数据多时）。请教大侠知道可以用什么方法优化呢？

5574916

5574916 发表于 2013-2-22 23:01
问题解决了，我在
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If r ...

{:soso_e159:}用这种方法虽然可以实现我要的效果，但是输入后有时候会出现卡顿的现象。有大侠知道有什么更好的方法，或是要怎么优化呢！？