[وهج الصحراء]

(09-04-19, 11:27 PM)بدري كتب : اقترح عليك بعد اختيار القلم وادخال البيانات ان تضع زر لاضافه هذه البيانات في الداتاجريد مثل

DataGridView1.Rows.Add(TextBox1.Text.ComboBox1.Text,.....)

ثم بعد الاضافه تاتي عمليه الترقيم مثل
For i = 0 To DataGridView1.Rows.Count - 1
    DataGridView1.Rows(i).Cells(0).Value = i + 1
Next

---

الطباعه بدون قاعده بيانات موضوع ليس لدي الوقت لشرحه

الله يكتب أجرك والف شكر
الترقيم مضبوط
المشكلة عند الاضافة مرة ثانية يتم التعديل في الصف الاول ولم يتم الادراج في الصف الثاني

وهذا هو الكود

Dim dt As New DataTable
Dim dr As DataRow
dt.Columns.Add("م")
dt.Columns.Add("النوع")
dt.Columns.Add("الكمية")
dt.Columns.Add("ملاحظات")
dr = dt.NewRow
dr("النوع") = ComboBox2.Text
dr("الكمية") = ComboBox5.Text
dr("ملاحظات") = TextBox6.Text
dt.Rows.Add(dr)
DataGridView1.DataSource = dt

For i = 0 To DataGridView1.Rows.Count - 1
DataGridView1.Rows(i).Cells(0).Value = i + 1
Next