[dubai.eig]

(21-03-19, 09:03 PM)asemshahen5 كتب : لا شكر على واجب جرب هذا التعديل اما اذا كنت تريد تعبئة داتا غريد فهناك حل آخر حسب ما تريد تعبئته .

PHP كود :

   Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim adapter As New MySqlDataAdapter("select * from cq_dxstation", connection)
        Dim table As New DataTable()
        adapter.Fill(table)
        ProgressBar1.Maximum = table.Rows.Count - 1
        For i = 0 To table.Rows.Count - 1
            ComboBox1.Items.Add(table.Rows(i)("dxcallsign").ToString)
            BackgroundWorker1.ReportProgress(i)
        Next
    End Sub
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        lblStatus.Text = e.ProgressPercentage & " Percent Completed!"
    End Sub
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Me.ProgressBar1.Visible = False
        lblStatus.Text = "DONE!"
        Cursor = Cursors.Default
    End Sub 


---

للداتا غريد استبدل كود تعبئة الكومبو بوكس بهذا الكود طبعا بعد إضافة الاعمدة للجدول :

PHP كود :

Dim ii As Integer = 0
        ProgressBar1.Maximum = table.Rows.Count - 1
        For Each row As DataRow In table.Rows
            DataGridView1.Rows.Add(row.ItemArray)
            ii += 1
            BackgroundWorker1.ReportProgress(ii)
        Next 


و هذا مع الداتاسيت :

PHP كود :

Dim ii As Integer = 0
        ProgressBar1.Maximum = DS.Tables("cq_qso").Rows.Count - 1
        For Each row As DataRow In DS.Tables("cq_qso").Rows
            DataGridView1.Rows.Add(row.ItemArray)
            ii += 1
            BackgroundWorker1.ReportProgress(ii)
        Next 


تسلم ايدك ضبط معاي وشغال تمام الحمدالله

بارك الله فيك شكرا من جديد