Dim str As String = e.Form.Controls("ComboBox1").Text
If str = "生产" Then Forms("添加成品生产入库").OpenElse Forms("添加成品外购入库").OpenEnd If