19-01-16, 09:45 AM
(آخر تعديل لهذه المشاركة : 19-01-16, 09:56 AM {2} بواسطة حسانين عزمي.)
انا قمت بعمل فورم عبارة عن داتا جريد فيــــو و بحث بالداتا جريد فيو
و مربعات نص .... و عند الاشارة الى سجل معين بالداتا جريد فيو
ينقل بيانات السجل الى مربعات النص ..... هذا قبل البحث تمــــــام
و لكن الســــــــــــــؤال لو تكرمتم ..... و هو مــــا أريده
أريد بعد البحث عند الاشارة الى سجل معين بالداتا جريد فيو
ينقل بيانات السجل الى مربعات النص و هذا لا يحدث
هذا هو كود اختيار الداتا جريد فيو ==== و لكنه لا يعمل بعد اجراء عملي البحث == يعمل فقط قبل البحث
Private Sub DataGridView2_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView2.SelectionChanged
Try
Dim Pos As Integer = BindingContext(Orders).Position
("Label.Text = Orders.Rows(Pos).Item("ID
("TextBox1.Text = Orders.Rows(Pos).Item("Order_No
("DateTimePicker1.Value = Orders.Rows(Pos).Item("Order_Date
("DateTimePicker2.Value = Orders.Rows(Pos).Item("Order_Time
("TextBox2.Text = Orders.Rows(Pos).Item("Driver
("TextBox3.Text = Orders.Rows(Pos).Item("Driver_Car
("TextBox4.Text = Orders.Rows(Pos).Item("Company
("TextBox5.Text = Orders.Rows(Pos).Item("Region
("TextBox6.Text = Orders.Rows(Pos).Item("Material
("TextBox7.Text = Orders.Rows(Pos).Item("Diesel
("TextBox8.Text = Orders.Rows(Pos).Item("Quantity
("TextBox9.Text = Orders.Rows(Pos).Item("Diesel2
("CheckBox1.Checked = Orders.Rows(Pos).Item("Status
Catch ex As Exception
End Try
End Sub
و مربعات نص .... و عند الاشارة الى سجل معين بالداتا جريد فيو
ينقل بيانات السجل الى مربعات النص ..... هذا قبل البحث تمــــــام
و لكن الســــــــــــــؤال لو تكرمتم ..... و هو مــــا أريده
أريد بعد البحث عند الاشارة الى سجل معين بالداتا جريد فيو
ينقل بيانات السجل الى مربعات النص و هذا لا يحدث
هذا هو كود اختيار الداتا جريد فيو ==== و لكنه لا يعمل بعد اجراء عملي البحث == يعمل فقط قبل البحث
Private Sub DataGridView2_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView2.SelectionChanged
Try
Dim Pos As Integer = BindingContext(Orders).Position
("Label.Text = Orders.Rows(Pos).Item("ID
("TextBox1.Text = Orders.Rows(Pos).Item("Order_No
("DateTimePicker1.Value = Orders.Rows(Pos).Item("Order_Date
("DateTimePicker2.Value = Orders.Rows(Pos).Item("Order_Time
("TextBox2.Text = Orders.Rows(Pos).Item("Driver
("TextBox3.Text = Orders.Rows(Pos).Item("Driver_Car
("TextBox4.Text = Orders.Rows(Pos).Item("Company
("TextBox5.Text = Orders.Rows(Pos).Item("Region
("TextBox6.Text = Orders.Rows(Pos).Item("Material
("TextBox7.Text = Orders.Rows(Pos).Item("Diesel
("TextBox8.Text = Orders.Rows(Pos).Item("Quantity
("TextBox9.Text = Orders.Rows(Pos).Item("Diesel2
("CheckBox1.Checked = Orders.Rows(Pos).Item("Status
Catch ex As Exception
End Try
End Sub