Combo 如何绑定多列

Question

    
    Dim mrc1 As ADODB.Recordset
    Dim txtSQL1 As String
    Dim MsgText1 As String
    Set mrc1 = ExecuteSQL("select * from TwSoft", MsgText1)
    Do Until mrc1.EOF
    Combo1.AddItem mrc1.Fields("C_SoftName")
    '我还想绑定一个 C_SoftPath
    Combo1.ListIndex = 0
    mrc1.MoveNext
    Loop
    '然后单击事件 text1.text=C_SoftName   text2.text=C_SoftPath
    Private Sub Combo1_Click()
    Text1.Text = '
    Text2.Text = 
    End Sub

Answer 1

  
    '同时显示两上字段内容()
    Combo1.AddItem mrc1!C_SoftName & " " mrc!C_SoftPath'中间加入了一个空格
     ……
    Private Sub Combo1_Click()
    Text1.Text = left(combo1.text ,InStr(combo1.text," "))
    Text2.Text = mid(combo1.text,InStr(combo1.text," "),len(combo1.text)-InStr(combo1.text," "))
    End Sub