[asemshahen5]

اخي الكريم الكود لايوجد به خطا الخطأ هو في اسم عامود الداتا غريد فيو و ليس العامود الموجود في جدول قاعدة البيانات :

PHP كود :

   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        If dtPatients.Tables("Patients").Rows.Count = 0 Then
            Invoke(Sub() ProgressBar1.Visible = False)
            Exit Sub
        End If
        Dim ii As Integer = 0
        Invoke(Sub() ProgressBar1.Maximum = dtPatients.Tables("Patients").Rows.Count)
        Invoke(Sub() ProgressBar1.Visible = True)
        Invoke(Sub() DataGridView1.Rows.Clear())
        ii = 0
        For Each row As DataRow In dtPatients.Tables("Patients").Rows
            Invoke(Sub() DataGridView1.Rows.Add(row.ItemArray))
            ii += 1
            BackgroundWorker1.ReportProgress(ii)
            Invoke(Sub() Label10.Text = ii)
            Application.DoEvents()
        Next
        Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum().ToString("00,000.00"))
    End Sub 


يكفي فقط وضع ترتيبه في الداتا غريد فيو حسب ظهوره العد يبدء من الصفر الى العامود المطلوب مع مراعاة الاعمدة المخفية اي .