代码修改

桔子DE香水

各位老师：

         早上好！

我建了个组合框，我想根据组合框里所选的内容进行更换子窗体，以下是我写的代码，好像不对，我选：压铸、采购、机加 三个全部显示生产计划，选择 装配  时会隐藏子窗体，跟我程序里要表达的完全不一样，烦请各位老师帮修改一下，谢谢

Private Sub 类别_BeforeUpdate(Cancel As Integer)
If Not Me.类别 = "压铸" Then
Me.FormSub.Visible = True
Me.FormSub.SourceObject = "压铸计划"
End If
If Not Me.类别 = "采购" Then
Me.FormSub.Visible = False
End If
If Not Me.类别 = "机加" Then
Me.FormSub.Visible = False
End If
If Not Me.类别 = "装配" Then
Me.FormSub.Visible = True
Me.FormSub.SourceObject = "生产计划"
End If
End Sub

桔子DE香水

好了，我知道怎么写了，谢谢各位关注