عدم تغير النسبة المؤية في Textbox تناسبا مع تقدم Progressar

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

تحية طيبة وبعد

ارجو من الاخوة الأعزاء المساعدة في مايلي:

المشكلة : عدم ظهور القيمة في textbox خلال ال loop في قرائة المعطيات من قاعدة البيانات مع انه خلال اللوب تظهر قيمة النتيجه ولكن لاتظهر في textbox في form مع تحرك القيمة في Progressar

getconsham()
		Dim connsham As New SqlClient.SqlConnection(consham)
		Dim comsham As New SqlClient.SqlCommand
		Dim dr As SqlClient.SqlDataReader

		Dim SalesInvoice_yearly As Integer
		Dim SalesReurn_yearly As Integer
		Dim Sales_yearly As Integer

		Dim Sales_year As Date = "01/01/2004"
		Dim i As Integer = 1
		Dim ii As String


		Do While Sales_year < Date.Today
			Sales_year = Sales_year.AddYears(1)
			i = i + 1
		Loop
		ii = 100 / i
		Sales_year = "01/01/2004"
		i = 0
		lblpgbSales_Persant.Text = ""

		Do While Sales_year < Date.Today
			i = i + ii
			connsham.Open()
			comsham.CommandText = " set dateformat dmy select sum(GRANDTOTAL) from docs_3 where  ( INVNO IN ( SELECT INVNO FROM DOCS_1 WHERE  ( INVDATE >=  '" & Sales_year & "'  AND INVDATE <= '" & Sales_year.AddYears(1) & "' ) AND (ID = '82'))) AND (ID = '82') "
			comsham.Connection = connsham
			dr = comsham.ExecuteReader
			dr.Read()
			If Not TypeOf dr(0) Is DBNull Then
				SalesInvoice_yearly = dr(0)
			Else
				SalesInvoice_yearly = 0
			End If
			connsham.Close()
			connsham.Open()
			comsham.CommandText = " set dateformat dmy select sum(GRANDTOTAL) from docs_3 where  ( INVNO IN ( SELECT INVNO FROM DOCS_1 WHERE  ( INVDATE >=  '" & Sales_year & "'  AND INVDATE <= '" & Sales_year.AddYears(1) & "' ) AND (ID = '84'))) AND (ID = '84') "
			comsham.Connection = connsham
			dr = comsham.ExecuteReader
			dr.Read()
			If Not TypeOf dr(0) Is DBNull Then
				SalesReurn_yearly = dr(0)
			Else
				SalesReurn_yearly = 0
			End If
			connsham.Close()

			Sales_yearly = SalesInvoice_yearly - SalesReurn_yearly
			dgvSalesPeriod.Rows.Add(Sales_year.Date.Year, SalesInvoice_yearly, SalesReurn_yearly, Sales_yearly)
			Sales_year = Sales_year.AddYears(1)

			If i < 100 Then
				pgbSales.Value = i
			Else
				pgbSales.Value = 100
			End If

			 lblpgbSales_Persant.Text = pgbSales.Value 

		Loop
		pgbSales.Value = 100
		CounterF4Sales()

اخوكم

م.محمدنفاع

ابوعبيده