关于子窗体刷新

huanglucy

求助！要求在主窗体选定供应商后，在子窗体的货品字段下拉选项中只显示主窗体选定供应商提供的商品，如主窗体供应商选择家电公司时，下拉选择只显示电视机和冰箱。
我对子窗体货品字段做了个查阅输入,查阅参数由主窗体的供应商限定,但是当改变供应商时,子窗体的查阅内容没有随之刷新，怎样才能及时刷新，谢谢！

Henry D. Sy

1. Private Sub 供应商_AfterUpdate()
   
2.     Dim sSQL As String
   
3.     If Not IsNull(Me.供应商) Then
   
4.         sSQL = "SELECT 货品 FROM 供应商货品 Where 供应商='" & Me.供应商 & "'"
   
5.         Me.入库订单子窗体.Form.货品简码.RowSource = sSQL
   
6.     End If
   
7. End Sub

复制代码

Henry D. Sy

Henry D. Sy 发表于 2011-12-25 09:22

huanglucy

Henry D. Sy 发表于 2011-12-25 09:24

谢谢版主的帮助，我控制发货的目的做到了，就是限制供应商的供货品种，不在限定的货品中的东西，就不能生成订单。再次谢谢Henry D.Sy老师。

huanglucy

Henry D. Sy 发表于 2011-12-25 09:24

Henry老师，当主窗体选择了一家供应商后，子窗体货品下拉选项只有电器类的，但是当清空主窗体的供应商时，子窗体的下拉选项还是电器类的，怎样实现当主窗体供应商清空时，子窗体下拉也为空，谢谢！

Henry D. Sy

huanglucy 发表于 2011-12-26 15:08
Henry老师，当主窗体选择了一家供应商后，子窗体货品下拉选项只有电器类的，但是当清空主窗体的供应商时， ...

晚上帮你弄，现在下班！

Henry D. Sy

Dim sSQL As String
    If Not IsNull(Me.供应商) Then
        sSQL = "SELECT 货品 FROM 供应商货品 Where 供应商='" & Me.供应商 & "'"
        Me.入库订单子窗体.Form.货品简码.RowSource = sSQL
else
Me.入库订单子窗体.Form.货品简码.RowSource =“”
    End If

huanglucy

Henry D. Sy 发表于 2011-12-26 17:23
Dim sSQL As String
    If Not IsNull(Me.供应商) Then
        sSQL = "SELECT 货品 FROM 供应商货品 W ...

Henry老师，清空供应商后，上次输入过的供应商商品还是在下拉选择中

Henry D. Sy

什么意思

huanglucy

Henry D. Sy 发表于 2011-12-27 11:43
什么意思

Henry老师，当主窗体选择了一家供应商后，子窗体货品下拉选项只有电器类的，但是当清空主窗体的供应商时，子窗体的下拉选项还是电器类的，加了else Me.入库订单子窗体.Form.货品简码.RowSource =“”
这句后，还是那样。