سوال: value در combo box [بایگانی]

delasaee

پنج شنبه 11 آذر 1389, 10:50 صبح

سلام دوستان
در asp قابلیتی داریم که برای combo box به غیر از text یک value هم می توان به آن داد
این قابلیت در vb هم هست آیا؟

Mani_rf

پنج شنبه 11 آذر 1389, 11:20 صبح

در ASP.Net کامپانتی بانام DropDownList هست که این قابلیت را داره.
بله در VB هم در کنترل ComboBox این قابلیت هست.

delasaee

پنج شنبه 11 آذر 1389, 11:39 صبح

در ASP.Net کامپانتی بانام DropDownList هست که این قابلیت را داره.
بله در VB هم در کنترل ComboBox این قابلیت هست.

بله درسته
میشه بگید چطوری باید value داد
من از datareader استفاده می کنم

ali_najari

پنج شنبه 11 آذر 1389, 13:34 عصر

دوست عزير فقط كافيه كه مقدار Datasource كامبو رو معادل اون Dataread قرار بديد به عنوان مثال فرض كني كه شما اطلاعات رو در يك Dataset به اسم DS ميريزيد حال براي سورس دادن از كد زير ميتونيد استفاده كنيد!

Combobox1.DataSource = Ds.tabels(0)
Combobox1.Displaymember= "ColumnName"

delasaee

پنج شنبه 11 آذر 1389, 14:03 عصر

دوست عزير فقط كافيه كه مقدار Datasource كامبو رو معادل اون Dataread قرار بديد به عنوان مثال فرض كني كه شما اطلاعات رو در يك Dataset به اسم DS ميريزيد حال براي سورس دادن از كد زير ميتونيد استفاده كنيد!

Combobox1.DataSource = Ds.tabels(0)
Combobox1.Displaymember= "ColumnName"

ممنون دوست عزیز
من اطلاعات رو در Dataset نمی ریزم
الان این کد من چه مشکلی داره؟

ComboBox1.DataSource = "1200"
ComboBox1.DisplayMember = "ALI"

Mani_rf

پنج شنبه 11 آذر 1389, 14:06 عصر

شما در هر صورت برای استفاده از این دو مقدار باید از دیتاسورس استفاده کنی، دیتاسورس هم مقداری از نوع دیتاست میگیره.
مشکل کد شما در اینه که دیتاسورس مقداری از نوع دیتاست میگیره اما شما به اون String دادی ترکیده.

delasaee

پنج شنبه 11 آذر 1389, 14:28 عصر

من با این کد comboboxamo پر می کنم
آیا راه حلی واسه من هست؟

Dim con1 As New SqlConnection(Database.con2)
Dim c1 = "select * from users"
Dim cmd1 As New SqlCommand(c1, con1)
con1.Open()
Dim dr1 As SqlDataReader
dr1 = cmd1.ExecuteReader()
dr1.Read()
combobox1.items.add = (dr1("id"))

بعد اینکه add کردم می خوام value نامشو بریزم

ali_najari

پنج شنبه 11 آذر 1389, 23:39 عصر

دوست عزیز شما بجای اینکه Add کنید DataSource بدید!

Dim con1 As New SqlConnection(Database.con2)
Dim c1 = "select * from users"
Dim cmd1 As New SqlCommand(c1, con1)
con1.Open()
Dim dr1 As SqlDataReader
dr1 = cmd1.ExecuteReader()
dr1.Read()
combobox1.ِDataSource = (dr1("id"))