报表代码，请教

Private Sub Report_Open(Cancel As Integer)
' On Error GoTo ErrorHandler
    
    If Me.单据类型 = "销售退货单" Then
    Me.退货单位.Visible = False
    Me.退货单位Label.Visible = False
    Me.客户名称.Visible = True
    Me.客户名称Label.Visible = True
    End If


    If Me.单据类型 = "采购退货单" Then
    Me.退货单位.Visible = True
    Me.退货单位Label.Visible = True
    End If


    If Me.单据类型 = "采购入库单" Then
    Me.相关订单号.Visible = True
    Me.订单号码Label.Visible = True
    End If


    If Me.单据类型 = "销售出库单" Then
    Me.相关订单号.Visible = True
    Me.订单号码Label.Visible = True
    Me.客户名称.Visible = True
    Me.客户名称Label.Visible = True
    Me.退货单位.Visible = False
    Me.退货单位Label.Visible = False
    End If

End Sub

希望达到的是，单据类型为销售出货单，相关订单号，客户名称显示，退货单位隐藏，以此类推。谢谢