[moh_g]

(19-06-17, 03:00 AM)WAEL ABED كتب : يعنى عايز مثلا لو لما يكون اللوب شغال بيكون فى بروجرس بار شغال مع اللوب ولا ايه مش واضح اوي بالنسبة لي طلبك ؟
ممكن توضح اكثر ولو ترسل مثال تشرح عليه المشكله عندك هيكون افضل
وشكرا

السلام عليكم.....
عنددي كود موجود في زرbutton,  كتالي

 Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        ' هدا كود لزيادة السنويةللاجازات
        Button11.Enabled = False
        Me.Enabled = False
        vac_newyear.Clear()
        vac_newyearadapter = New OleDbDataAdapter("select  file_no ,vac_bal ,yr_vac ,vac_bal_year from pers_data order by birthdate", con)
        vac_newyearadapter.Fill(vac_newyear)

        Dim loop1 As New Integer
        loop1 = BindingContext(vac_newyear).Count - 1
        Dim v As New Integer

        Dim no As New Integer

        For i = 0 To loop1
            v = 0
            no = 0
            no = vac_newyear.Rows(i).Item(0).ToString
            v = vac_newyear.Rows(i).Item(1) + vac_newyear.Rows(i).Item(2)
          
            'vac_newyear.Rows(i).Item(1) = v

            Dim cmd As New OleDbCommand("update pers_data set vac_bal=@vac_bal,vac_bal_year=@vac_bal_year   where file_no=" & no, con)
            cmd.Parameters.Add("@vac_bal", OleDbType.Numeric).Value = Val(v) 'vac_newyear.Rows(i).Item(1).ToString 'dt2.Rows(pos).Item(2)
            cmd.Parameters.Add("@vac_bal_year", OleDbType.VarChar).Value = TextBox10.Text

            If con.State = ConnectionState.Open Then con.Close()
            con.Open()
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            con.Close()


        Next
        pers_data_load()

        load_dgv_vac()

        DataGridView1.DataSource = vac_tab
        MsgBox("تمت عملية احتساب الاجازات  بنجاح" & TextBox10.Text, MsgBoxStyle.Information, "إحتساب الاجازات")

        Me.Enabled = True



اريد عند البدء في تنفيد الكود يظهر نسبة التقدم في نسبة انجاز المهمة الموكلة لهمثلا زي اللي يظهر عند النسخ