[kebboud]

(18-04-23, 05:30 PM)foo كتب : ضع هذا السطر في كلاس الفورم

كود :

Dim yyy As Integer = 0

في اخر حدث load للفورم اي بعد ملء الداتاتابل ضع هذا الكود

كود :

DataGridView1.DataSource = dt.AsEnumerable.Skip(yyy).Take(7).CopyToDataTable

اضف مفتاح button1 للرجوع بالصفحات للخلف وهذا كوده

كود :

yyy -= 7
If yyy < 0 Then yyy = 0
DataGridView1.DataSource = dt.AsEnumerable.Skip(yyy).Take(7).CopyToDataTable

واضف مفتاح button2 للتقدم بالصفحات للامام وهذا كوده

كود :

yyy += 7
If yyy > dt.Rows.Count - 1 Then yyy -= 7
If yyy < 0 Then yyy = 0
DataGridView1.DataSource = dt.AsEnumerable.Skip(yyy).Take(7).CopyToDataTable

السلام عليكم الأخ foo
الكود الذهبي الذي أرسلت حل المشكلة 100 في المائة 
شكرا من الأعماق 
ترليون شكرا
و عيدا مباركا