none
combobox 傳回所選值問題 RRS feed

  • 問題

  • dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    dim i as integer

    '秀出name

    for i=0 to 2

     combobox.items.Add(name(i))

    combobox.show

    next 

     

    想請問一下   如果我選了王小明  我希望能夠取得90的數值

    選了 老王能夠取的100  選了小強能夠取的88

    我也試過改成 combobox.datasource=point

    但combobox控制項名稱 就變成 (90,100,88)不在是姓名

    不知道我還少了那些要設定combobox???

    感謝

    2007年6月12日 上午 01:13

解答

  • 您可以把

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    組成一個DataTable 欄位(Column)分別為name和point

    再把DataTable當成combobox的datasource

    在設定

    combobox.ValueMember = "point"
       combobox.DisplayMember = "name"

    這樣就可以了

     

     

    2007年6月12日 上午 02:15
  •  DataTable 中沒有資料,會回傳資料我隨便你 ...

    Code Snippet

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    dim dt As New DataTable

     

    dt.Columns.Add("ColName")

    dt.Columns.Add("ColPoint")

     

    For i As Integer = 0 To name.Length - 1

         dim newRow As DataRow = dt.NewRow()

         newRow(0) = name(i)

         newRow(1) = point(i) 

         dt.Rows.Add(newRow)

    Next

     

    ComboBox.DataSource = dt

    ComboBox.DisplayMember = "ColName"

    ComboBox.ValueMember = "ColPoint"

     

     

    2007年6月12日 上午 09:19
    版主

所有回覆

  • Hi,簡單的方式你可以利用SelectedIndex來取得對應的數值,例如

    Code Snippet

       Dim Na() As String = {"王小明", "老王", "小強"}
        Dim Po() As String = {"90", "100", "88"}

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim i As Integer

            For i = 0 To 2
                ComboBox1.Items.Add(Na(i))
            Next
        End Sub

        Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
            If ComboBox1.SelectedIndex <> -1 Then
                MessageBox.Show(Po(ComboBox1.SelectedIndex))
            End If
        End Sub

     

     

    2007年6月12日 上午 02:06
    版主
  • 您可以把

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    組成一個DataTable 欄位(Column)分別為name和point

    再把DataTable當成combobox的datasource

    在設定

    combobox.ValueMember = "point"
       combobox.DisplayMember = "name"

    這樣就可以了

     

     

    2007年6月12日 上午 02:15
  •  MattLee 寫信:

    您可以把

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    組成一個DataTable 欄位(Column)分別為name和point

    再把DataTable當成combobox的datasource

    在設定

    combobox.ValueMember = "point"
       combobox.DisplayMember = "name"

    這樣就可以了

     

     

    大大所說的應該是我需要的   我去試試看怎麼組成DATATABLE

    感謝  嘗試去了

    2007年6月12日 上午 02:39
  •  MattLee 寫信:

    您可以把

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    組成一個DataTable 欄位(Column)分別為name和point

    再把DataTable當成combobox的datasource

    在設定

    combobox.ValueMember = "point"
       combobox.DisplayMember = "name"

    這樣就可以了

     

     

    dim mytable1 as new datatable("高中班級")

    dim colname as new datacolumn("姓名")

    dim colpoint as new datacolumn("分數")

    mytable1.columns.add(colname)

    mytable1.columns.add(colpoint)

    combobox.datasource=mytable1

    combobox.valueMember="colpoint"

    combobox.DisplayMember"colname"

    大大能否告知我那裡錯了  因為我陣列裡的資料  還是都沒有作用  選到的值都是NULL

    小弟對這超陌生的

    感謝

    2007年6月12日 上午 06:14
  •  DataTable 中沒有資料,會回傳資料我隨便你 ...

    Code Snippet

    dim name() as string={"王小明","老王","小強"}

    dim point() as string={"90","100","88"}

    dim dt As New DataTable

     

    dt.Columns.Add("ColName")

    dt.Columns.Add("ColPoint")

     

    For i As Integer = 0 To name.Length - 1

         dim newRow As DataRow = dt.NewRow()

         newRow(0) = name(i)

         newRow(1) = point(i) 

         dt.Rows.Add(newRow)

    Next

     

    ComboBox.DataSource = dt

    ComboBox.DisplayMember = "ColName"

    ComboBox.ValueMember = "ColPoint"

     

     

    2007年6月12日 上午 09:19
    版主
  • 感謝大大 終於OK了

    我要去買本資料存取方面的書來看看了

    感謝

    2007年6月12日 下午 12:35