1

したがって、「clientLocations」の適切なリストが設定されたコンボボックスを取得できます。

ただし、それらはすべて 0 の valueMember を持っています。したがって、当面の問題は、名前だけでなく、コンボボックス項目の値をデータベース列 (データセットで返される) に適切に割り当てることです。

Private Sub updateClientLocationComboBox()
    'clear list
    comboBox_clientLocations_deviceList.Items.Clear()
    'get dataset from database
    Dim ds As DataSet = GetClientLocations(_objHost, CInt(comboBox_clients.SelectedValue))

    'force insert an "All Locations" datarow
    Dim allClientRow As DataRow = ds.Tables(0).NewRow
    allClientRow(0) = 0
    allClientRow(1) = "--All Locations--"
    ds.Tables(0).Rows.InsertAt(allClientRow, 0)

    'Check for table in dataset; if exist loop and populate comboBox
    If Not ds Is Nothing AndAlso ds.Tables.Count > 0 Then
        For Each A As DataRow In ds.Tables(0).Rows
            comboBox_clientLocations_deviceList.Items.Add(A("Name").ToString)
        Next
    End If
End Sub
4

1 に答える 1

0

私があなたを正しく読んでいるなら、DataSetでこれをしたいと思うでしょう：

If Not ds Is Nothing AndAlso ds.Tables.Count > 0 Then
    With comboBox_clientLocations_deviceList
        .DataSource = ds.Tables(0)
        .DisplayMember = "Name"
        .ValueMember = "WhateverCol(0)IsCalled"
    End With
End if

次に、comboBox_clientLocations_deviceList を使用すると、SelectedText および SelectedValue プロパティが機能するはずです。

于 2012-04-20T14:35:55.500 に答える