View Full Version : مشکل با کمبو باکس
mortezasar
سه شنبه 07 خرداد 1392, 17:55 عصر
سلام من دارم اطلاعات سلکت شده از جدولم رو میریزم توی یک کمبو باکس و میخوام کاربر هر کدوم از آیتم ها رو انتخاب کرد یک قیمت بیاد توی تکست باکسم این کد رو نوشتم اما توی تکست باکسم مینویسه
system.data........
cbfood.DisplayMember = "name";
cbfood.SelectedValue = "price";
cbfood.DataSource = dt;
private void cbfood_SelectedIndexChanged(object sender, EventArgs e)
{
txtfoodp.Text = cbfood.SelectedValue.ToString();
}
Mahmoud.Afrad
سه شنبه 07 خرداد 1392, 18:40 عصر
باید Valuemember را ست کنی:چشمک:
cbfood.DisplayMember = "name";
cbfood.ValueMember = "price";
cbfood.DataSource = dt;
ashkufaraz
سه شنبه 07 خرداد 1392, 19:07 عصر
سلام خدمت شما برنامه نویس گرامی
به جای استفاده از تابع بالا( cbfood_selectedindex ) از تابع زیر استفاده نماییذ
cbfood_SelectedValue
همچنین باید Valuemember را نیز ست کن به کد غذا
khokhan
سه شنبه 07 خرداد 1392, 20:05 عصر
[QUOTE=mortezasar;1779402]سلام من دارم اطلاعات سلکت شده از جدولم رو میریزم توی یک کمبو باکس و میخوام کاربر هر کدوم از آیتم ها رو انتخاب کرد یک قیمت بیاد توی تکست باکسم این کد رو نوشتم اما توی تکست باکسم مینویسه
system.data........
private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
if (comboBox1.SelectedIndex != -1)
{
SqlConnection con = new SqlConnection(connect);
SqlCommand cmd = new SqlCommand("SELECT kala_code,price FROM kala WHERE kala_name = @pid", con);
cmd.Parameters.AddWithValue("@pid", comboBox1.Text);
SqlDataAdapter da = new SqlDataAdapter(cmd);
DataTable dt = new DataTable();
da.Fill(dt);
if (dt.Rows.Count > 0)
{
textBox4.Text = dt.Rows[0]["kala_code"].ToString();
textBox5.Text = dt.Rows[0]["price"].ToString();
}
else
comboBox1.DataSource = null;
}
}
mortezasar
سه شنبه 07 خرداد 1392, 20:12 عصر
مرسی دوستان حل شد
mohsen22
سه شنبه 07 خرداد 1392, 23:30 عصر
[QUOTE=mortezasar;1779402]
private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
if (comboBox1.SelectedIndex != -1)
{
SqlConnection con = new SqlConnection(connect);
SqlCommand cmd = new SqlCommand("SELECT kala_code,price FROM kala WHERE kala_name = @pid", con);
cmd.Parameters.AddWithValue("@pid", comboBox1.Text);
SqlDataAdapter da = new SqlDataAdapter(cmd);
DataTable dt = new DataTable();
da.Fill(dt);
if (dt.Rows.Count > 0)
{
textBox4.Text = dt.Rows[0]["kala_code"].ToString();
textBox5.Text = dt.Rows[0]["price"].ToString();
}
else
comboBox1.DataSource = null;
}
}
ببخشید این دستورات در زبان وی بی چه شکلی هستند ؟
khokhan
چهارشنبه 08 خرداد 1392, 00:39 صبح
[QUOTE=khokhan;1779500]
ببخشید این دستورات در زبان وی بی چه شکلی هستند ؟
those code in vb .net shold be like this :لبخند:
Imports System.Data.SqlClient
Public Class Form1
Dim cmd As New SqlCommand()
Dim con As New SqlConnection
Dim rd As SqlDataReader
Dim ds As New DataSet()
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex <> -1 Then
Dim con As New SqlConnection("Data Source=.\\SQLEXPRESS;AttachDbFilename=|DataDirecto ry|\\logina.mdf;Integrated Security=True;User Instance=True")
Dim cmd As New SqlCommand("SELECT kala_code,price FROM kala WHERE kala_name = @pid", con)
cmd.Parameters.AddWithValue("@pid", ComboBox1.Text)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox1.Text = dt.Rows(0)("kala_code").ToString()
TextBox2.Text = dt.Rows(0)("price").ToString()
Else
ComboBox1.DataSource = Nothing
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
End Class
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.