Question

Vb中，form1里combo1和combo2分别有多个内容，当分别选中后点击command1，让内容显示在form2的list控件中

Vb中，form1里combo1和combo2分别有多个内容，当分别选中后点击command1，让内容显示在form2里的list1控件中。请问完整代码，我是啥都不会的小白，感谢！！！
例如combo1里有ABCD，combo2里有甲乙丙丁。
选择A、甲时，点击command1，在form2中的list控件里显示123；
选择A、乙时，点击command1，在form2中的list控件里显示456.
。。。
大神给写个代码，然后我举一反三

Answer 1

Form1的代码：

Private Sub Command1_Click()
If Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "二个下拉框都必须族禅改选择！", 16, "提示！"
Exit Sub
Else
Form2.Show
End If
End Sub

Private Sub Command2_Click()
End
End Sub

'选择A、甲时袭培，点击command1，在form2中的list控件里显示123；
'选择A、乙时，点击command1，在form2中的list控件里显示456.
Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
    Combo1.AddItem "甲"
    Combo1.AddItem "已"
    Combo1.AddItem "丙"
    Combo1.AddItem "丁"
    Combo2.AddItem "A"
    Combo2.AddItem "B"
    Combo2.AddItem "C"
    Combo2.AddItem "D"
End Sub

Form2的代码：

Private Sub Command1_Click()
Form1.Combo1.Text = ""
Form1.Combo2.Text = "兆判"
Unload Me
End Sub

Private Sub Form_Load()
List1.Clear
List1.AddItem Form1.Combo1.Text & "  " & Form1.Combo2.Text
End Sub

Answer 2

Option Explicit
 
'控件：form1放combo1、combo2，form2放一个list1
'有什么问题，可以继续讨论
Private 陪郑Sub cmdCommand1_Click()
    Form2.List1.Clear
    Form2.List1.AddItem Combo1.Text     '这里就是填值，至于需要填什么，就看你自己了
    Form2.List1.AddItem Combo2.Text
    Form2.Show
End Sub

Private Sub Form_Load()
    '初始化
    Combo1.Clear
    Combo1.AddItem "尺睁A"
    Combo1.AddItem "B"
    Combo1.AddItem "C"
    Combo1.AddItem "D"
    Combo1.ListIndex = 0
    Combo2.Clear
    Combo2.AddItem "甲"
    Combo2.AddItem "已"
    Combo2.AddItem "丙"
    Combo2.AddItem "丁"芦困颂
    Combo2.ListIndex = 0
End Sub

追问

可是，点击form1中的commond1没有弹出form2呀，大哥你可不可以给我写个完整的，我是0基础，但是又要交作业，没办法。可以的话，发到邮箱779330565@qq.com，调试没问题后，我给你追加30分

追答

不科学啊，我这里OK啊

像你说的那样，无非就是加判断，举个例子吧

Private Sub cmdCommand1_Click()
    Form2.List1.Clear
    if combo1.text = "A" and combo2.text="甲" then
        Form2.List1.AddItem "123"
    ElseIf combo1.text = "A" and combo2.text="已" then
        Form2.List1.AddItem "456"
    end if
    Form2.Show
End Sub

这里得一一枚举各种可能性，显的比较笨，但是具体的得看你的数据是怎样的..