本人是初学者。。。。请各位高手帮忙下小的，。谢谢

列夫　发表于：2013-12-08 10:43:27 　

复制

窗体1中，当输入客户和产品名称时。如果客户（表2）的级别是A级的，价格显示为（表1）优惠价。反之价格显示为（表1）的售价

Top

一杯绿茶发表于：2013-12-08 12:37:33

这就是你要的效果

下载附件

Top

在水一方发表于：2013-12-08 12:42:35

点击下载此附件

Private Sub 客户_AfterUpdate()
Me.级别 = Me.客户.Column(1)
End Sub

Private Sub 产品名称_AfterUpdate()
If Me.级别 = "A" Then
Me.价格 = DLookup("优惠价", "表1", "产品名称='" & Me.产品名称 & "'")
Else
Me.价格 = DLookup("售价", "表1", "产品名称='" & Me.产品名称 & "'")
End If
End Sub

Top

落尘_小新发表于：2013-12-08 13:36:58

呵呵,这家伙,一个问题发了好几个论坛啊.

点击下载此附件

Private Sub 产品名称_AfterUpdate()
    If Len(Trim(Nz(Me.客户))) <> 0 Then Call 价格_GotFocus
End Sub

Private Sub 价格_GotFocus()
    If Me.客户.Column(1) = "A" Then
        Me.价格 = Me.产品名称.Column(2)
    Else
        Me.价格 = Me.产品名称.Column(1)
    End If
End Sub

Private Sub 客户_AfterUpdate()
    If Len(Trim(Nz(Me.产品名称))) <> 0 Then Call 价格_GotFocus
End Sub

Top

列夫发表于：2013-12-08 15:07:16

见笑了。。。

各位大师，，，，现价格现是2条件选择。如我除开”优惠价“，和“售价”外，我还想加多一项“折扣”共有3条件选择。。。又怎编写？？？？

麻烦各位了

Top

落尘_小新发表于：2013-12-08 17:43:30

道理是一样的,只是多加了一个判断而以.

供参考

Access软件网-落尘_小新

http://www.accessoft.com/blog/article-show.asp?userid=23308&Id=8746

Private Sub 价格_GotFocus()
    If Me.客户.Column(1) = "A" Then
        Me.价格 = Me.产品名称.Column(2) * [折扣]
    Else
        Me.价格 = Me.产品名称.Column(1) * [折扣]
    End If
End Sub

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

本人是初学者。。。。请各位高手帮忙下小的，。谢谢