падения Список вниз не показывает правильное значение

Question

Вот мой класс

Public Class TitleV_List 
    Public Full_Name As String 
    Public ID As Integer 
    Sub New(ByVal Full_Name As String, ByVal ID As Integer) 
     Me.Full_Name = Full_Name 
     Me.ID = ID 
    End Sub 
End Class 

Вот мой код:

Dim TitleVList As New List(Of TitleV_List) 


con = New SqlConnection(connectionString) 

sql = "Select ID, Full_Name FROM cts_TitleV_Leads WHERE IsActive = 1" 

If con.State = ConnectionState.Closed Then 
    con.Open() 
End If 

cmd.CommandType = CommandType.Text 
cmd.Connection = con 
cmd.CommandText = sql 

dr = cmd.ExecuteReader 

If dr.HasRows = True Then 
    While dr.Read 

     TitleVList.Add(New TitleV_List(dr("Full_Name"), dr("ID"))) 
    End While 
End If 

If con.State = ConnectionState.Open Then 
    con.Close() 
    dr.Close() 
End If 

ddlpropTitleVlist.DataSource = TitleVList 

проверить код и правильные значения собираются в DropDownList, но на экран, когда я нажимаю на раскрывающийся список Стрелка все значения: 'CTSnet.TitleV_List'

Название проекта CTSnet. Что я делаю не так????

Answer 1

Вам нужно сделать две вещи, чтобы сделать эту работу. Сначала установите DisplayMember и ValueMember для ddlpropTitleVlist. Что-то вроде следующего сразу после установки DataSource:

ddlpropTitleVlist.DisplayMember = "Full_Name" 
ddlpropTitleVlist.ValueMember = "ID" 

И дальше, вы должны указывать эти элементы на свойства вашего класса TitleV_List:

Public Property Full_Name As String 
Public Property ID As Integer 

(В то время как мы говорим о том, что я должен удалить «_List» из этого имени класса, потому что это не список любого типа. Возможно, вызывается его TitleV_Item, а затем ваш TitleVList предложит список элементов, а не неверно предлагает список списков.)