Hej alla,

Har återigen fastnat i den underbara världen av VB.net =)

Det jag ska göra är att visa städer i en combobox för att därefter skicka vidare ID:et av den valda staden. Comboboxen visar de korrekta städerna (displaymember), men den skickar inte vidare ID:et(valuemember) – den visar/skickar bara System.Data.DataRowView ---

Har testat med MsgBox(oCodes.Tables(0).Rows(0).Item(0).ToString & vbCrLf & oCodes.Tables(0).Rows(0).Item(1).ToString) och det är riktiga värden överallt…är bara något litet som är fel...men vad??


Public Function GetCodes() As DataSet

Try

conn.Open()

Dim items As New ArrayList

Dim rowQuery As OdbcCommand = conn.CreateCommand

rowQuery.CommandText = "SELECT * FROM " + msTableName

Dim oAdapter As OdbcDataAdapter = New OdbcDataAdapter(rowQuery)
Dim oDataSet As DataSet = New DataSet
oAdapter.Fill(oDataSet)

Return oDataSet

Catch ex As Exception

If moLog Is Nothing Then
MsgBox("No logging object available!" & vbCrLf & vbCrLf & "Error: " & ex.Message & vbCrLf & "Stacktrace: " & ex.StackTrace)

Else
moLog.LogError("DBLookup.Common.Validator", ex.Message & vbCrLf & "Stacktrace: " & ex.StackTrace)

End If

Return Nothing

Finally

conn.Close()

End Try

End Function




Public Sub PopulateCombo(ByVal sKeyColumn As String, ByVal sResultColumn As String)

Try

Dim oCodes As New DataSet

oCodes = moValidate.GetCodes()

' MsgBox(oCodes.Tables(0).Rows(0).Item(0).ToString & vbCrLf & oCodes.Tables(0).Rows(0).Item(1).ToString)


Me.lstBox.BeginUpdate()

Me.lstBox.DataSource = oCodes.Tables(0)
Me.lstBox.ValueMember = sResultColumn
Me.lstBox.DisplayMember = sKeyColumn
Me.lstBox.Visible = True
Me.lstBox.EndUpdate()

Catch ex As Exception

End Try

End Sub