comboBox控件的取值问题

Question

将fyje字段信息存入数组1并将fymc的对应内容按顺序加入到组合框中
再定义current_fymc和current_fyje用于存储当前的值可以通过判定current_fyje在数组1的位置 来选定组合框中的选项

Answer 1

Private Sub Command1_Click()
    Select Case fyje
        Case "2"
            Combo1.Text = "维护"
        Case "25"
            Combo1.Text = "出差"       
        Case Else
            Combo1.Text = " "
    End Select
End Sub

Answer 2

补充说明下：comWHFY控件列表调用的是 fysz表中的fymc，我想通过comWHFY再把FYMC相对应的FYJE写入到wxb中的whfy

Answer 3

思路，取出数据库中字段，添加进combox的list里面，然后用combox的value设置combox的显示项。

Answer 4

取出数据（自己写）
用set 把字段添加进combox的 list里面
用value来设置想要显示的值

Answer 5

Call OpenConn
  sql = "select fyje from fysz "
  rs.Open sql, cn, 1, 1
  
    Do While Not rs.EOF
     comWHFY.AddItem rs.Fields("fyje")
  rs.MoveNext
  LoopCall CloseConn
这是我取出的数据,我想显示是fymc这个表的内容怎么写

Answer 6

也就是我想取出fyje这组数据写到wxb whfy里,但是我想在comwhfy这个combobox列表里显示fymc这组

Answer 7

Private Sub Command1_Click()
    Select Case fyje
        Case "2"
            Combo1.Text = "维护"
        Case "25"
            Combo1.Text = "出差"       
        Case Else
            Combo1.Text = " "
    End Select
End Sub