(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
اريد عند البدء في تنفيد الكود يظهر نسبة التقدم في نسبة انجاز المهمة الموكلة لهمثلا زي اللي يظهر عند النسخ