الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود يعدل حقل الرصيد في جميع الحقل في حساب الصندوق بواسطة Datarow

بدأه hajriss في 10 نوفمبر 2008 · 2 رد · 943 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بعد التحية

بحث في المنتدى عن كود يعدل حقل الرصيد في جميع الحقل في حساب الصندوق بواسطة DataRow

مثال

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





Dim decBalanc As Decimal = 0


			Dim Row As DataRow

			For Each Row In dsCashAccount.Tables("dt_Cash_Account").Rows

				If Row("Cash_Cash_Draw") > 0 Then

					decBalanc = decBalanc - Row("Cash_Cash_Draw")

					Row("Cash_Balance") = decBalanc

				Else
					decBalanc = decBalanc + Row("Cash_Deposit")

					Row("Cash_Balance") = decBalanc
				End If

			Nex
t
 مع الشكر للجميع
post-6392-1226349262_thumb.png

      
      

      
    

  

    
    

      
#2
        
        

      
تاكد اولا ان العمود لا يساوي القيمة الخالية DBNull.Value ، وبعدين قارنة مع الرقم,,,,
شوف الكود وإن شاء الله يمشي معاك
 

[color= #800000;]Dim decBalanc [color= #800000;]As Decimal = [color= #cc66cc;]0

 

        [color= #800000;]Dim Row [color= #800000;]As DataRow

 

        [color= #800000;]For Each Row In dsCashAccount.[color= #66cc66;]Tables[color= #66cc66;]([color= #ff0000;]"dt_Cash_Account"[color= #66cc66;]).[color= #66cc66;]Rows

 

            [color= #800000;]If Row[color= #66cc66;]([color= #ff0000;]"Cash_Cash_Draw"[color= #66cc66;]) IsNot DBNull.[color= #66cc66;]Value AndAlso Row[color= #66cc66;]([color= #ff0000;]"Cash_Cash_Draw"[color= #66cc66;]) > [color= #cc66cc;]0 [color= #800000;]Then

 

                decBalanc = decBalanc - [color= #800000;]If[color= #66cc66;](Row[color= #66cc66;]([color= #ff0000;]"Cash_Cash_Draw"[color= #66cc66;]) Is DBNull.[color= #66cc66;]Value, [color= #cc66cc;]0, Row[color= #66cc66;]([color= #ff0000;]"Cash_
Cash_Draw"[color= #66cc66;])[color= #66cc66;])

 

                Row[color= #66cc66;]([color= #ff0000;]"Cash_Balance"[color= #66cc66;]) = decBalanc

 

            [color= #800000;]Else

                decBalanc = decBalanc + [color= #800000;]If[color= #66cc66;](Row[color= #66cc66;]([color= #ff0000;]"Cash_Deposit"[color= #66cc66;]) Is DBNull.[color= #66cc66;]Value, [color= #cc66cc;]0, Row[color= #66cc66;]([color= #ff0000;]"Cash_De
posit"[color= #66cc66;])[color= #66cc66;])

 

                Row[color= #66cc66;]([color= #ff0000;]"Cash_Balance"[color= #66cc66;]) = decBalanc

            [color= #800000;]End [color= #800000;]If

 

        [color= #800000;]Next

      
      

      
[وسط]لا اله الا انت سبحانك انى كنت من الظالمين
[/وسط]

    

  

    
    

      
#3
        
        

      
أنا عاجز عن الشكر وجعله الله في ميزان حسناتك

      
تم تعديل هذه المشاركة بواسطة hajriss في 13 نوفمبر 2008 في 13:56

      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…