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