I'm getting Data.DataRowView as my SelectedItem value from a listbox. How do I get the actual value?

I've got a listbox being populated with unique values from a table.  I'd like to be able to select one and use it as part of a filepath that links to another table (dervied from the original table based on the unique values...TiimeID).  The listbox shows up the unique values for TimeID, but when I try to select it and use a msgbox to check the new filepath, the filepath has "System.Data.DataRowView" instead of the value selected in the table.  Any suggestions??? Thanks!


Private Sub btnCreateDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDB.Click
 
        DBProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
        'DBSource = "Data Source = C:/GEMSS/Apps/Kentucky Lake/Output/avg_highflow.mdb"
        DBSource = "Data Source = " & TextBox3.Text
        DBPath = TextBox3.Text
        Scenario = TextBox1.Text
        FileLoc = TextBox2.Text
 
        'MsgBox(DBSource)
        'Private MainConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
        'con.ConnectionString = DBProvider & DBSource
        MainConnectionString = DBProvider & DBSource
        'MsgBox(MainConnectionString)
 
        'Private NewDBPath As String = "C:\GEMSS\Apps\Kentucky Lake\Output\avg_highflow_new_TimeID{0}.mdb"
        NewDBSource = FileLoc & "\" & Scenario & "_new_TimeID{0}.mdb"
        Dim NewDBPath As String = FileLoc & "\" & Scenario & "_new_TimeID{0}.mdb"
        'MsgBox(NewDBSource)
        'MsgBox(NewDBPath)
 
        NewDBConnectionStringTemplate = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}"
        'Private NewDBConnectionStringTemplate As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}"
 
        Dim conn As New OleDbConnection(MainConnectionString)
        Dim comm As OleDb.OleDbCommand = conn.CreateCommand()
        comm.CommandText = "SELECT DISTINCT TimeID FROM tblSurface"
        comm.CommandType = CommandType.Text
 
 
        dtTimeIDs = New DataTable()
        'conn.ConnectionString = MainConnectionString
        conn.Open()
        'MsgBox("You are using " & DBPath & "as the current database.")
        dtTimeIDs.Load(comm.ExecuteReader())
        conn.Close()
        'MsgBox("Database is now closed.")
 
 
        Me.lbTimeIDs.DataSource = dtTimeIDs
        Me.lbTimeIDs.DisplayMember = "TimeID"
        Me.lbTimeIDs.ValueMember = timeselect
 
 
        'Creates individual tables for each time step.
        Dim InsertQryStr As String = "INSERT INTO {0} SELECT * FROM tblSurface WHERE TimeID={1}"
        Dim thisDBPath As String
        Dim con2 As New OleDbConnection
        Dim com2 As OleDbCommand
 
        For i As Integer = 0 To Me.dtTimeIDs.Rows.Count
            If i > 11 Then
                Exit For
            Else
                thisDBPath = String.Format(NewDBPath, Me.dtTimeIDs.Rows(i)(0).ToString())
                'thisDBPath = NewDBPath & ",Me.dtTimeIDs.Rows(i) (0).ToString()"
                'MsgBox("ThisDBPath = " & thisDBPath)
                'MsgBox("DBPath = " & DBPath)
                'Me.lbTimeIDs.DisplayMember = DBPath
                System.IO.File.Copy(DBPath, thisDBPath)
 
                con2.ConnectionString = String.Format(NewDBConnectionStringTemplate, thisDBPath)
                com2 = con2.CreateCommand()
                com2.CommandText = "DELETE FROM tblSurface WHERE TimeID<>" + Me.dtTimeIDs.Rows(i)(0).ToString()
                com2.CommandType = CommandType.Text
                con2.Open()
                com2.ExecuteNonQuery()
                con2.Close()
 
            End If
        Next
    End Sub
 
Private Sub AddTbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTbl.Click
        'Get a table based on the time selected in the list box and add it to ArcMap
        Dim FileLoc As String
        Dim Scenario As String
        Dim tblpth As String
        Dim timeselect As String = lbTimeIDs.SelectedItem.ToString()
 
        'Dim timeselect As String = lbTimeIDs.Items(lbTimeIDs.SelectedIndex).ToString()
        MsgBox("Seleccted time is " & timeselect)
        'Dim timeselect As String = lbTimeIDs.SelectedItem
        'From Experts-Exchange
        'timeselect = Me.lbTimeIDs.SelectedItem[{0}].ToString();
 
        Scenario = TextBox1.Text
        FileLoc = TextBox2.Text
        tblpth = FileLoc & "\" & Scenario & "_new_TimeID" & timeselect & ".mdb"
        MsgBox(tblpth)
 
'There's more after this, but the tblpath is wrong right now.
End Sub

Open in new window

jvs7829Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ErezMorCommented:
there are a few ways ti get to it
this example will concatenate all values selected in a multi select listbox into a string
i believe you can derive what you want from it

For Each itm As Object In lstItems.SelectedItems
       str1 = str1 & ", " & lstItems.GetItemText(itm)
Next
0
Snarf0001Commented:
The .SelectedItem returns the full object being bound, which is the DataRowView.

Use .SelectedValue instead, that will return the value from the datarow specified with
Me.lbTimeIDs.ValueMember
0
jvs7829Author Commented:
Thanks for the assistance...I actually got an answer from an ESRI Forum person.

This worked:  
Dim timeselect As String = lbTimeIDs.SelectedItem(0).ToString()
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.