Displaying values in a combobox

Question

0.00/5 (No votes)

See more:

I have two combobox that i want to load data based on the selected item on the first combobox.The code i have works but it displays the result like an array of characters showing one letter in each line instead of a word in each line.

Please help out. The code below is displaying the values in the combobox as an array of one letter in each line instead of a whole word in each line.
This is the code i have used now

VB

Public Class Form1
    Dim TextingContext As New TestingEntities
    Dim currentDepartment As New Department

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles comFaculty.SelectedIndexChanged
        Dim selectedfaculty As Faculty = CType(comFaculty.SelectedItem, Faculty)
        Dim selectedFacultyID As Integer = selectedfaculty.Faculty_ID
        Dim dep As IQueryable(Of Department) = From p In TextingContext.Departments
                                             Where p.Faculty.Faculty_ID = selectedFacultyID
                                             Select p

        Dim selDepartment As List(Of Department) = dep.ToList
        currentDepartment = selDepartment.FirstOrDefault

        comDepartment.DisplayMember = "Department_Name"
        comDepartment.DataSource = currentDepartment.Department_Name.ToList
    End Sub

Posted 27-May-13 4:15am

jamiebones

Updated 29-May-13 17:00pm

Kenneth Haugland

v6

Add a Solution

4 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Abhinav S · Answer 1 · 2013-05-27T04:29:00

Solution 1

Should'nt the select part be Select p.Department.Department_Name?

In general, debugging and stepping through your code will help you get an idea on the error.
Code will break on the line you have an error.

Posted 27-May-13 4:29am

Abhinav S

TnTinMn · Answer 2 · 2013-05-29T16:50:00

Your error is in this line:

comDepartment.DataSource = currentDepartment.Department_Name.ToList

Presumably, Department_Name is a string. Converting a string to a list will yield a list of characters that comprise the string.

I would guess that you intended:

comDepartment.DataSource = selDepartment

Makwana Kishor · Answer 3 · 2013-05-31T01:07:00

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Clear()
Try
db.con.Open()
Dim da As New SqlDataAdapter("select * from student where id>3", db.con)
Dim ds As New DataSet
da.Fill(ds, "1")
For i As Integer = 0 To ds.Tables("1").Rows.Count - 1
Me.ComboBox1.Items.Add(ds.Tables("1").Rows(i)(0))
Next
Catch ex As Exception
MsgBox("Error : " + ex.Message)
Finally
db.con.Close()
End Try
End Sub

Kishor Makwana
Software Engineer
Insight Softech
www.insightsoftech.com

jamiebones · Answer 4 · 2013-05-31T03:17:00

This is the code i used and it is working fine

Quote:
If lstFaculty.SelectedItem Is Nothing Then Exit Sub

Dim selectedFaculty As Faculty = DirectCast(lstFaculty.SelectedItem, Faculty)
Dim selectedFacultyID As String = (selectedFaculty.Faculty_ID)

Try

Dim depQuery As IQueryable(Of Department) = From dep In examinationOfficer.Departments
Where dep.Faculty_ID = selectedFacultyID
Select dep

lstDepartment.DataSource = depQuery.ToList
lstDepartment.DisplayMember = "Department_Name"

Thanks all for your time and effort

Displaying values in a combobox

4 solutions

Solution 1

Solution 2

Solution 3

Solution 4

Add your solution here

Preview 0