销售系统设置不同价格？？

高高

我现在在做销售系统，我需要三个价格，一个是(件)价格，一个是（包）价格，一个是历史记忆的价格。如何在订单明细中体现这三中价格。输入客户名称，得到历史价格，输入新客户，得到件价格，单位是包的话，则是包价格。目前我可以做到查找到历史价格，和做出按单位查找价格的查询，可是没办法达到我想要的目的。求助各位版主和高人。。。实在是焦头烂额啊。。。弱弱的问一句，acess可以打销售订单吗？？

高高

有没有什么相似的例子可以借鉴下?谢谢了

高高

file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/QQ/Temp/YR~$GZ(BDLX%255%5DUQE5%60~2K0.jpg
这是之前一个高手做的，先用了下，谢谢了高人。。哈哈。。但是这个还是达不到我想要的效果。。郁闷啊

高高

如果是新顾客的话，rs.MoveLast这个语句显示错误。这是什么意思？？
我在正常的窗口可以实现单位的变化价格也变化，但是在子窗口中却实现不了，是不是子窗口的语句和普通窗口的语句不同？？

高高

刚刚通过Dlookup和If已经实现啦，作为新手忙的一身汗啊！

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 = True Then
Me.单价 = DLookup("[价格1]", "[件价格]", "[产品名称]='" & [Forms]![主窗体]![子窗体]![产品名称] & "'")
Else

rs.MoveLast

If rs.EOF = False Then


Me.单价 = rs("单价")


End If
End If
End Sub

Private Sub 单位_AfterUpdate()
If 单位 <> "件" Then

Me.单价 = DLookup("[价格2]", "[包价格]", "[产品名称]='" & [Forms]![主窗体]![子窗体]![产品名称] & "'")
End If
End Sub

Private Sub 单位_BeforeUpdate(Cancel As Integer)

End Sub