09-10-16, 10:26 AM
الصفحات : 1 2
09-10-16, 03:24 PM
اتوقع تقوم اولا بعمل قائمة مؤقته تخزن فيها البيانات من DataGridView1 وبعدها تستخدمها في اي مكتن
ولهذا نتمنا من المتمكنيين عكود عمل قادئمة تحمل متغير على شكل بيانات قعادة بيانات مؤقته
ولهذا نتمنا من المتمكنيين عكود عمل قادئمة تحمل متغير على شكل بيانات قعادة بيانات مؤقته
09-10-16, 11:06 PM
السلام عليكم
في حدث (Click) للزر (Button2) ادرج الكود التالي
تحياتي ..
في حدث (Click) للزر (Button2) ادرج الكود التالي
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Me.CopyDataSet.ddd.Clear()
For indexrow As Int16 = 0 To Me.DataGridView2.RowCount - 2
Dim dr As DataRow
dr = Me.CopyDataSet.ddd.NewRow
dr("الاسم") = Me.DataGridView2.Rows(indexrow).Cells(1).Value
dr("ايميل") = Me.DataGridView2.Rows(indexrow).Cells(2).Value
Me.CopyDataSet.ddd.Rows.Add(dr)
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
تحياتي ..
10-10-16, 09:23 AM
(09-10-16, 11:06 PM)ابراهيم النعيمي كتب : [ -> ]السلام عليكم
في حدث (Click) للزر (Button2) ادرج الكود التالي
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Me.CopyDataSet.ddd.Clear()
For indexrow As Int16 = 0 To Me.DataGridView2.RowCount - 2
Dim dr As DataRow
dr = Me.CopyDataSet.ddd.NewRow
dr("الاسم") = Me.DataGridView2.Rows(indexrow).Cells(1).Value
dr("ايميل") = Me.DataGridView2.Rows(indexrow).Cells(2).Value
Me.CopyDataSet.ddd.Rows.Add(dr)
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
تحياتي ..
جزاكم الله خيرا اخى
وزادكم الله من فضله
اضفت اخى الى الفورم textbox1 و اضفت لل DataGridView1 حقل اسمه عدد و اريد القيمة التى بال textbox1 تضاف الى عدد داخل DataGridView1
و شكرا اخى على الاهتمام
10-10-16, 10:52 AM
السلام عليكم
هل تريد ان تتكرر قيمة ال(TextBox1) في جميع صفوف (DataGridView1) في حقل (عدد)؟ و هل تم اضافة حقل (عدد) الى الجدول (ddd) في قاعدة البيانات و لل (DataTable) في ال (DataSet) ام ان حقل (عدد) غير مرتبط بقاعدة البيانات مثل بقية الحقول؟
تحياتي ..
هل تريد ان تتكرر قيمة ال(TextBox1) في جميع صفوف (DataGridView1) في حقل (عدد)؟ و هل تم اضافة حقل (عدد) الى الجدول (ddd) في قاعدة البيانات و لل (DataTable) في ال (DataSet) ام ان حقل (عدد) غير مرتبط بقاعدة البيانات مثل بقية الحقول؟
تحياتي ..
10-10-16, 11:34 AM
(10-10-16, 10:52 AM)ابراهيم النعيمي كتب : [ -> ]السلام عليكم
هل تريد ان تتكرر قيمة ال(TextBox1) في جميع صفوف (DataGridView1) في حقل (عدد)؟ و هل تم اضافة حقل (عدد) الى الجدول (ddd) في قاعدة البيانات و لل (DataTable) في ال (DataSet) ام ان حقل (عدد) غير مرتبط بقاعدة البيانات مثل بقية الحقول؟
تحياتي ..
نعم اخى الكريم تم اضافة عدد فى قاعدة البيانات و تم ربطه و أريد ان تتكرر قيمة ال(TextBox1) في جميع صفوف (DataGridView1) في حقل (عدد)
و شكرا اخى على سرعة الرد
و نسأل الله أن ينفع بك كل طالب علم
10-10-16, 01:53 PM
السلام عليكم
اذا يكون الكود بالشكل التالي:
باضافة السطر التالي فقط:
مع ملاحظة تعديل الـ (DataSet) كما في الصورة
تحياتي...
اذا يكون الكود بالشكل التالي:
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Me.CopyDataSet.ddd.Clear()
For indexrow As Int16 = 0 To Me.DataGridView2.RowCount - 2
Dim dr As DataRow
dr = Me.CopyDataSet.ddd.NewRow
dr("الاسم") = Me.DataGridView2.Rows(indexrow).Cells(1).Value
dr("ايميل") = Me.DataGridView2.Rows(indexrow).Cells(2).Value
dr("عدد") = Me.TextBox1.Text
Me.CopyDataSet.ddd.Rows.Add(dr)
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
PHP كود :
dr("عدد") = Me.TextBox1.Text
تحياتي...
10-10-16, 02:51 PM
(10-10-16, 01:53 PM)ابراهيم النعيمي كتب : [ -> ]السلام عليكم
اذا يكون الكود بالشكل التالي:
باضافة السطر التالي فقط:PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Me.CopyDataSet.ddd.Clear()
For indexrow As Int16 = 0 To Me.DataGridView2.RowCount - 2
Dim dr As DataRow
dr = Me.CopyDataSet.ddd.NewRow
dr("الاسم") = Me.DataGridView2.Rows(indexrow).Cells(1).Value
dr("ايميل") = Me.DataGridView2.Rows(indexrow).Cells(2).Value
dr("عدد") = Me.TextBox1.Text
Me.CopyDataSet.ddd.Rows.Add(dr)
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
مع ملاحظة تعديل الـ (DataSet) كما في الصورةPHP كود :
dr("عدد") = Me.TextBox1.Text
تحياتي...
جزاكم الله خيرا تم المطلوب على اكمل وجه شكرا لك اخى
10-10-16, 08:04 PM
الشكر لله
تحياتي ..
تحياتي ..
22-10-16, 08:20 PM
(10-10-16, 08:04 PM)ابراهيم النعيمي كتب : [ -> ]الشكر لله
تحياتي ..
السلام عليكم اخى ابراهيم
هذا الكود افدنى كثيرا و جزاكم الله خيرا
ولكن فضلا منك
انا اضفت لل DataGridView حقل باسم ( الاجمالى ) و اريد ان يكون به ناتج ضرب الحقلين ( عدد * سعر )
و شكرا على مجهودك
الصفحات : 1 2