07-11-15, 06:50 AM
اريد مساعده ف ف كود خطا يطلعي ف شاشة المنتجات عند التعديل ..الخطا هو يقولي مافش صفوف ف datatable
Sub ShowData(ByVal pid)
pro_id.Text = pid
Dim sql = "select * from Supplier_prod where class_name= '" + pro_id.Text + "'"
Dim adp = New SqlClient.SqlDataAdapter(sql, SQLCONN)
Dim ds = New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
Dim dr = dt.Rows(0) هنا الخطا
pro_id.Text = dr!pro_id
pro_name.Text = dr!pro_name
pro_id.ReadOnly = True
class_name.Text = dr!class_name
exp_date.Text = dr!exp_date
com_name.Text = dr!com_name
place.Text = dr!place
form_name.Text = dr!form_name
price.Text = dr!price
quantity.Text = dr!quantity
Supplier_name.Text = dr!Supplier_name
Sub ShowData(ByVal pid)
pro_id.Text = pid
Dim sql = "select * from Supplier_prod where class_name= '" + pro_id.Text + "'"
Dim adp = New SqlClient.SqlDataAdapter(sql, SQLCONN)
Dim ds = New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
Dim dr = dt.Rows(0) هنا الخطا
pro_id.Text = dr!pro_id
pro_name.Text = dr!pro_name
pro_id.ReadOnly = True
class_name.Text = dr!class_name
exp_date.Text = dr!exp_date
com_name.Text = dr!com_name
place.Text = dr!place
form_name.Text = dr!form_name
price.Text = dr!price
quantity.Text = dr!quantity
Supplier_name.Text = dr!Supplier_name