[Emam emam]

(01-10-19, 05:21 AM)asemshahen5 كتب :

PHP كود :

   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
            DataGridView1.Rows.Add(row.ItemArray)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        dtEmployee_Table.Clear()
        Dim connSQL = "Data Source=(Local);Initial Catalog=ImportFromExcel;Integrated Security=True"
        Dim da As New SqlDataAdapter("select * from Full_Tree_Account order by AccountID ", connSQL)
        da.Fill(dtEmployee_Table)
        DataGridView1.ColumnCount = dtEmployee_Table.Tables(0).Columns.Count
        Dim daEM As New SqlDataAdapter("select * from Empty_Tree_Account order by AccountID ", connSQL)
        Dim dtEM As New DataTable
        daEM.Fill(dtEM)
        ComboBox1.DataSource = dtEM
        ComboBox1.DisplayMember = "AccountNameAR"
        With DataGridView1
            .RowsDefaultCellStyle.SelectionBackColor = Color.BlueViolet
            .RowsDefaultCellStyle.SelectionForeColor = Color.White
            .ColumnHeadersDefaultCellStyle.BackColor = Color.SkyBlue
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .DefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).DefaultCellStyle.BackColor = Color.Azure
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).Width = 354
            .Columns(1).HeaderText = "إسم الموظف"

            .Columns(2).Width = 354
            .Columns(2).HeaderText = "الوظـيـفـه"
        End With

        ComboBox1.Text = ""
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub 


فقط غيير الاستعلام لاسماء جدولك و اعمدتك .

جزاك الله خير الجزاء اخي علي اهتمامك ومساعدتك
الكود يعمل تمام الحمد لله بفضل الله ثم مساعدتك اخي
ولكن هناك مشكله بسيطه وهي
عندما اضغط علي الزر لاول مره يقوم بتحميل البيانات ولكن عند الضغط عليه مره اخري يقوم بتحمسل البيانات مره اخري بدون تفريغ البيانات القديمه 
والبرنامج يقف للحظات بسيطه قبل التحميل 
فما الحل؟
وهدا هو الكود

PHP كود :

 Dim dtEmployee_Table As New DataSet
    Dim daEmployee_Table As New SqlDataAdapter

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
            DataGridView1.Rows.Add(row.ItemArray)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        dtEmployee_Table.Clear()
        daEmployee_Table = New SqlDataAdapter("select * from Employee_Table order by Employee_ID ", connSQL)
        daEmployee_Table.Fill(dtEmployee_Table)
        DataGridView1.ColumnCount = dtEmployee_Table.Tables(0).Columns.Count
        With DataGridView1
            .RowsDefaultCellStyle.SelectionBackColor = Color.BlueViolet
            .RowsDefaultCellStyle.SelectionForeColor = Color.White
            .ColumnHeadersDefaultCellStyle.BackColor = Color.SkyBlue
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .DefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).DefaultCellStyle.BackColor = Color.Azure
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).Width = 354
            .Columns(1).HeaderText = "إسم الموظف"

            .Columns(2).Width = 354
            .Columns(2).HeaderText = "الوظـيـفـه"
        End With

        Dim dtEM As New DataTable
        Dim daEM As New SqlDataAdapter("select * from Employee_Table order by Employee_Name ", connSQL)
        daEM.Fill(dtEM)
        ComboBox1.DataSource = dtEM
        ComboBox1.DisplayMember = "Employee_Name"


        ComboBox1.Text = ""
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
        End If

    End Sub