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

Posted on 2009-06-29
Last Modified: 2012-06-21
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


        'Private MainConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath

        'con.ConnectionString = DBProvider & DBSource

        MainConnectionString = DBProvider & DBSource


        '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"



        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


        'MsgBox("You are using " & DBPath & "as the current database.")



        '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


                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




            End If


    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"


'There's more after this, but the tblpath is wrong right now.

End Sub

Open in new window

Question by:jvs7829
LVL 12

Expert Comment

ID: 24738772
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)
LVL 22

Expert Comment

ID: 24738940
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

Accepted Solution

jvs7829 earned 0 total points
ID: 24740600
Thanks for the assistance...I actually got an answer from an ESRI Forum person.

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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s quite interesting for me as I worked with Excel using for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now