如何combobox的？
程序包含一ACCESS，里包含一表和目：name和Gender分combobox 想的效果：
1. 其中一之後另外一自
比如name了 Sam ，gender自male
反之gender了male，NAME里列出所有GENDERMALE的人比如SAM ， RICHARD。。。。

2.一空的候另一自清空

3.可以且入新的


[解决办法]
http://topic.csdn.net/u/20110912/18/b2b76dd2-18f8-4130-83bc-5fef08336e5a.html?63982
[解决办法]

VB.NET code

    'connstr你的接字符    'tablename你的表名    Public Sub CreateItem(ByVal cmdstr As String, ByVal cbx As ComboBox)        Dim conn As New OleDbConnection(connstr)        Dim sda As New OleDbDataAdapter        Dim cmd As New OleDbCommand(cmdstr, conn)        Dim sds As New DataSet()        Try            sda.SelectCommand = cmd            sda.Fill(sds, "Item")        Catch ex As Exception            MessageBox.Show(ex.ToString, "CeateItem Err")            Return        End Try        If sds.Tables().Item(0).Rows.Count > 0 Then            For i = 0 To sds.Tables.Item(0).Rows.Count - 1                cbx.Items.Add(sds.Tables.Item(0).Rows(i).Item(0).ToString)            Next i        End If    End Sub    Private Sub fmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        CreateItem("SELECT name from  tablename", cbxname)        CreateItem("SELECT gender from  tablename", cbxgender)    End Sub    Private Sub cbxname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxname.SelectedIndexChanged        CreateItem("SELECT gender from tablename where name ='" & cbxname.Text.Trim & "'", cbxgender)    End Sub    Private Sub cbxgender_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxgender.SelectedIndexChanged        CreateItem("SELECT name from tablename where gender ='" & cbxgender.Text.Trim & "'", cbxname)    End Sub