PDA

View Full Version : مشکل با کمبو باکس



mortezasar
سه شنبه 07 خرداد 1392, 16: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, 17:40 عصر
باید Valuemember را ست کنی:چشمک:

cbfood.DisplayMember = "name";
cbfood.ValueMember = "price";
cbfood.DataSource = dt;

ashkufaraz
سه شنبه 07 خرداد 1392, 18:07 عصر
سلام خدمت شما برنامه نویس گرامی
به جای استفاده از تابع بالا( cbfood_selectedindex ) از تابع زیر استفاده نماییذ
cbfood_SelectedValue

همچنین باید Valuemember را نیز ست کن به کد غذا

khokhan
سه شنبه 07 خرداد 1392, 19: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, 19:12 عصر
مرسی دوستان حل شد

mohsen22
سه شنبه 07 خرداد 1392, 22: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
سه شنبه 07 خرداد 1392, 23: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