سلام من دارم اطلاعات سلکت شده از جدولم رو میریزم توی یک کمبو باکس و میخوام کاربر هر کدوم از آیتم ها رو انتخاب کرد یک قیمت بیاد توی تکست باکسم این کد رو نوشتم اما توی تکست باکسم مینویسه
system.data........
cbfood.DisplayMember = "name";
cbfood.SelectedValue = "price";
cbfood.DataSource = dt;
private void cbfood_SelectedIndexChanged(object sender, EventArgs e)
{
txtfoodp.Text = cbfood.SelectedValue.ToString();
}
باید Valuemember را ست کنی
cbfood.DisplayMember = "name";
cbfood.ValueMember = "price";
cbfood.DataSource = dt;
سلام خدمت شما برنامه نویس گرامی
به جای استفاده از تابع بالا( cbfood_selectedindex ) از تابع زیر استفاده نماییذ
cbfood_SelectedValue
همچنین باید Valuemember را نیز ست کن به کد غذا
[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;
}
}
مرسی دوستان حل شد
[QUOTE=khokhan;1779500]ببخشید این دستورات در زبان وی بی چه شکلی هستند ؟نوشته شده توسط mortezasar
[QUOTE=mohsen22;1779669]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
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول
