المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
09-04-19, 11:27 PM
(آخر تعديل لهذه المشاركة : 09-04-19, 11:28 PM {2} بواسطة بدري.)
اقترح عليك بعد اختيار القلم وادخال البيانات ان تضع زر لاضافه هذه البيانات في الداتاجريد مثل
DataGridView1.Rows.Add(TextBox1.Text.ComboBox1.Text,.....)
ثم بعد الاضافه تاتي عمليه الترقيم مثل
For i = 0 To DataGridView1.Rows.Count - 1
DataGridView1.Rows(i).Cells(0).Value = i + 1
Next
الطباعه بدون قاعده بيانات موضوع ليس لدي الوقت لشرحه
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
ضع هذا السطر تحت اسم اكلاس
Private dt As New DataTable
وهذه الاسطر داخل حدث تحميل الفورم
dt.Columns.Add("م")
dt.Columns.Add("النوع")
dt.Columns.Add("الكمية")
dt.Columns.Add("ملاحظات")
DataGridView1.DataSource = dt
وضع هذين السطرين في حدث الاضافه
dt.Rows.Add(0, ComboBox2.Text, ComboBox5.Text, TextBox6.Text)
For i = 0 To dt.Rows.Count - 1
dt.Rows(i)(0) = i + 1
Next
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
10-04-19, 01:17 AM
(آخر تعديل لهذه المشاركة : 10-04-19, 01:30 AM {2} بواسطة بدري.)
لم اعمل على طريقه الوورد
ولكن لعمل طباعه باستخدم ريبورت فيور تحتاج ان تعرف طريقه انشاء DataSet من خلال الاضافه Add Item
بعدها سيتم الاستغنا عن dt والاستعانه ب DataSet بدلا منها
تقارير ريبورت فيور تحتاج DataSet للربط بها وسيكون التعامل معه اسهل وتحقق ما تريد من طباعه جميله