Private Sub Combo2_Change()
If Combo2.Text = "员工信息" Then
Form6.Show
Me.Hide
End If
End Sub
Private Sub Command1_Click()
If Combo1.Text = "员工信息" Then
Form4.Show
Me.Hide
End If
If Combo1.Text = "商品信息" Then
Form5.Show
Me.Hide
End If
If Combo1.Text = "供应商信息" Then
Form6.Show
Me
相关下载链接:
//download.csdn.net/download/wcy23456/2400695?utm_source=bbsseo