[kebboud]

لديّ جدول بيانات يحتوي على 173 صفًا ، ما أريده عندما أنقر على الزر ، يتم عرض 25 صفًا فقط من جدول البيانات في datagridview وعندما أقوم بالنقر مرة أخرى ، يتم عرض 25 صفًا جديدًا وهكذا حتى تنتهي صفوف جدول البيانات

[foo]

ما الفرق بين هذا الموضوع والموضوع السابق "تصفح الداتاغريد فيو"؟

[kebboud]

(22-04-23, 02:02 AM)foo كتب : ما الفرق بين هذا الموضوع والموضوع السابق "تصفح الداتاغريد فيو"؟

جيد جدا سؤالك لأنك هو صاحب الجواب السابق 
الفرق بينهما ليس كبيرا لكن للأسف الجواب الذي قدمته لي لم يحل لي المشكلة تماما ..و سأوضح لك كل شيء
أنا عندي مشروع برنامج يحسب التقسيطات التي يجب على المدين أن يدفعها كل شهر يعني تكتب المبلغ الكلي في تيكست بوكس و تكتب دفعة التقسيط  ثم تكتب تاريخ بداية الدفع ثم
يقوم البرنامج بحساب عدد الدفعات تلقائيا حسب المدة و لكن المشكلة أن الدفعة الأخيرة من الدفعات دائما تكون أقل من باقي الدفعات مثلا جميع الدفعات تكون 22512 و تبقى الدفعة الأخيرة 320 ...و هنا المشكلة ...الحل الذي قدمته يلغي الدفعة الأخيرة

[foo]

هذا الشرح ليس له علاقه بسؤال الموضوع
والحل في موضوعك السابق لا يلغي اي سطر

اعمل مشروع بسيط فيه نفس فكرة الاقساط للتعديل عليه

[kebboud]

(22-04-23, 02:33 AM)foo كتب : هذا الشرح ليس له علاقه بسؤال الموضوع
والحل في موضوعك السابق لا يلغي اي سطر

اعمل مشروع بسيط فيه نفس فكرة الاقساط للتعديل عليه

أبشرك أنني عثرت على الحل أخيرا

[aljzazy]

كود :

Private Sub LoadData(pageNumber As Integer)
   ' Define the number of rows to display per page
   Dim rowsPerPage As Integer = 25

   ' Calculate the starting row for the current page
   Dim startRow As Integer = (pageNumber - 1) * rowsPerPage

   ' Connect to the database and retrieve the data
   Dim connString As String = "Your connection string here"
   Dim query As String = "SELECT * FROM YourTable ORDER BY YourColumn OFFSET " & startRow & " ROWS FETCH NEXT " & rowsPerPage & " ROWS ONLY"
   Dim adapter As New SqlDataAdapter(query, connString)
   Dim dataTable As New DataTable()
   adapter.Fill(dataTable)

   ' Set the data source for the DataGridView
   DataGridView1.DataSource = dataTable
End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
   ' Increment the page number and reload the data
   pageNumber += 1
   LoadData(pageNumber)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Load the first page of data when the form loads
   pageNumber = 1
   LoadData(pageNumber)
End Sub

[kebboud]

(26-04-23, 09:01 PM)aljzazy كتب :

كود :

Private Sub LoadData(pageNumber As Integer)
   ' Define the number of rows to display per page
   Dim rowsPerPage As Integer = 25

   ' Calculate the starting row for the current page
   Dim startRow As Integer = (pageNumber - 1) * rowsPerPage

   ' Connect to the database and retrieve the data
   Dim connString As String = "Your connection string here"
   Dim query As String = "SELECT * FROM YourTable ORDER BY YourColumn OFFSET " & startRow & " ROWS FETCH NEXT " & rowsPerPage & " ROWS ONLY"
   Dim adapter As New SqlDataAdapter(query, connString)
   Dim dataTable As New DataTable()
   adapter.Fill(dataTable)

   ' Set the data source for the DataGridView
   DataGridView1.DataSource = dataTable
End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
   ' Increment the page number and reload the data
   pageNumber += 1
   LoadData(pageNumber)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Load the first page of data when the form loads
   pageNumber = 1
   LoadData(pageNumber)
End Sub

أشكرك أخي الجزاز على ردك الجميل المفيد