دو فیلد در یک combobox

[masysh]

دوستان ایراد کد زیر زیر برای قرار دادن دو فیلد در یک کومبو باکس چیه؟
Private Sub TwoFieldInCombo()

Dim dt As New DataTable
Dim dc As New DataColumn("merge", GetType(String))
Dim dr As SqlDataReader
Dim cm As SqlCommand
Try

dt.Columns.Add(dc)

Dim str As String = "Select name,lname from table"

SqlConnection1.Open()

cm = New SqlCommand(str, SqlConnection1)
dr = cm.ExecuteReader

dt.Rows.Clear()

Do While dr.Read
dc = dt.Rows.Add(dr.Item("name") + dr.Item("lname"))
Loop

ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "merge"

dr.Close()
SqlConnection1.Close()
cm.Dispose()
SqlConnection1.Dispose()

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
Catch ex As SqlException
MsgBox(ex.Message, MsgBoxStyle.Critical, "Sql Error")

End Try
End Sub

[masysh]

لطفا جواب مرا هم بدهید.......

[masysh]

یکی هم جواب منو بده

[M.kavyani]

دوست عزیز شما کدتون رو در داخل تگ مربوط به کد بگذارید تا قشنکتر خونده بشه. در ثانی اینهمه کدی که نوشتی باعث میشه کمتر کسی بیاد بخونش و وقت بذاره چیزی رو که مینویسی باید ساده و خلاصه و مفهوم باشه نه بلعکس.

[M.kavyani]

Private Sub TwoFieldInCombo()



        Dim dt As New DataTable

        Dim dc As New DataColumn("merge", GetType(String))

        Dim dr As SqlDataReader

        Dim cm As SqlCommand

        Try



            dt.Columns.Add(dc)



            Dim str As String = "Select name,lname from table"



            SqlConnection1.Open()



            cm = New SqlCommand(str, SqlConnection1)

            dr = cm.ExecuteReader



            dt.Rows.Clear()



            Do While dr.Read

                dc = dt.Rows.Add(dr.Item("name") + dr.Item("lname"))

            Loop



            ComboBox1.DataSource = dt

            ComboBox1.DisplayMember = "merge"



            dr.Close()

            SqlConnection1.Close()

            cm.Dispose()

            SqlConnection1.Dispose()



        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Sql Error")



        End Try

    End Sub

[RezaJP]

نگفتین چه خطایی میده ... اما با این درست میشه

Private Sub TwoFieldInCombo()



        Dim dt As New DataTable

        Dim dc As New DataColumn("merge", System.Type.GetType("System.String"), "name + ' ' + lname")

        Dim da As New SqlDataAdapter("Select name,lname from table", sqlconnection1)



        Try







            da.Fill(dt)

            dt.Columns.Add(dc)

            



            ComboBox1.DataSource = dt

            ComboBox1.DisplayMember = "merge"



            

            

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Sql Error")



        End Try

    End Sub

البته پارامتر آخر constructor مربوط به DataColumn رو چک کن "name + ' ' + lname"

[hadi2345]

با سلام .
چرا از جانوس استفاده نمیکنید ؟؟؟؟ . جانوس به غیر از گریدش کلی ابزار دیگه هم داره که یکیش همینه !!!! .
موفق باشید .

[masysh]

نگفتین چه خطایی میده ... اما با این درست میشه

Private Sub TwoFieldInCombo()



        Dim dt As New DataTable

        Dim dc As New DataColumn("merge", System.Type.GetType("System.String"), "name + ' ' + lname")

        Dim da As New SqlDataAdapter("Select name,lname from table", sqlconnection1)



        Try







            da.Fill(dt)

            dt.Columns.Add(dc)

            



            ComboBox1.DataSource = dt

            ComboBox1.DisplayMember = "merge"



            

            

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Sql Error")



        End Try

    End Sub

البته پارامتر آخر constructor مربوط به DataColumn رو چک کن "name + ' ' + lname"

یک دنیا تشکر

[RezaJP]

خواهش ... کلا Column.Expression بسیاری از مشکلات رو حل می کنه

[saman_itc]

سلام دوست عزیز شما با این روش میتونید دو فیلد داخل یک کومبو بزارید

 Combo1.Items.Add(dr("name") + (".") + dr("shobe"))