تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عدم توازن القيد على الرغم من ان الارقام متساوية
#1
عندى قاعدة سيكوال مع برنامج فيجوال
عندى مشكلة في قيد اليومية حيث ان الطرف المدين يساوى الطرف الدائن وعند الحفظ يعطى رسالة عدم توازن القيد 

والقيد كما بالشكل عند وضعه على الاكسيل يكون متوازن كما يلى 

دائن                                   [b]مدين[/b]
   0                                   44152.2
43764.9
387.3
  44,152.20                    44,152.20             الاجمالى

ومعادلة المدين والدائن وكذلك الفرق بالاكواد كما قمت بتصميمها هي 
 Sub TOTAL_DEBIT_CREDIT()

       

        Dim tot_d_ As Double = 0

        Dim tot_c_ As Double = 0

        Dim dif_ As Double = 0

        For i As Integer = 0 To DGV.Rows.Count - 1

            If DGV.Rows(i).Cells(1).Value <> Nothing Then

                tot_d_ = Val(tot_d_) + Val(DGV.Rows(i).Cells(4).Value)

                tot_c_ = Val(tot_c_) + Val(DGV.Rows(i).Cells(5).Value)

                dif_ = Val(tot_d_) - Val(tot_c_)

            End If

            Text_total_debit.Text = tot_d_.ToString()

            Text_total_credit.Text = tot_c_.ToString()

            Text_difference.Text = dif_.ToString()

        Next

       
    End Sub    




  
الرد }}
تم الشكر بواسطة:
#2
السلام عليكم

حاول التالي


كود :
       Dim tot_d_ As String = 0
       Dim tot_c_ As String = 0
       Dim dif_ As String = 0
       For i As Integer = 0 To DGV.Rows.Count - 1
           If DGV.Rows(i).Cells(1).Value <> Nothing Then
               tot_d_ = Val(tot_d_) + Val(DGV.Rows(i).Cells(4).Value)
               tot_c_ = Val(tot_c_) + Val(DGV.Rows(i).Cells(5).Value)
               dif_ = Val(tot_d_) - Val(tot_c_)
           End If
           Text_total_debit.Text = val(tot_d_)
           Text_total_credit.Text = val(tot_c_)
           Text_difference.Text = val(dif_)
       Next
الرد }}
تم الشكر بواسطة: أسعد , محمد اسماعيل
#3
(27-04-21, 10:14 PM)messry كتب : السلام عليكم

حاول التالي


كود :
       Dim tot_d_ As String = 0
       Dim tot_c_ As String = 0
       Dim dif_ As String = 0
       For i As Integer = 0 To DGV.Rows.Count - 1
           If DGV.Rows(i).Cells(1).Value <> Nothing Then
               tot_d_ = Val(tot_d_) + Val(DGV.Rows(i).Cells(4).Value)
               tot_c_ = Val(tot_c_) + Val(DGV.Rows(i).Cells(5).Value)
               dif_ = Val(tot_d_) - Val(tot_c_)
           End If
           Text_total_debit.Text = val(tot_d_)
           Text_total_credit.Text = val(tot_c_)
           Text_difference.Text = val(dif_)
       Next

الف شكر اخى الكريم messry
الرد }}
تم الشكر بواسطة: محمد اسماعيل


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الكود لا يستدعى الارقام الا الاقل من 10 حماده ممدوح البحيرى 4 82 , 08:12 AM
آخر رد: حماده ممدوح البحيرى
Question كيفية زيادة وانقاص الارقام العشرية في C# و VB.NET silverlord 4 417 29-05-22, 02:49 AM
آخر رد: silverlord
  طريقة اختصار تكرارات الارقام beso00 6 962 11-02-22, 10:32 PM
آخر رد: ابراهيم ايبو
  سؤال : هل يمكن اضافة فاصلة الوف علوية ( اعلى الارقام ) 00. 000'000'3 mh66 4 1,063 05-01-22, 12:44 AM
آخر رد: yassoo1985
  [VB.NET] تقريب الارقام لاكبر عدد EMADSS 2 414 04-01-22, 11:00 AM
آخر رد: EMADSS
  سؤال عن تنسيق الارقام في داتا جريد فيو ابو انس 2 830 03-11-21, 04:49 PM
آخر رد: ابو انس
  [سؤال] استفسار عن دالة لحساب الارقام المتشابهة نيمو 7 967 27-09-21, 09:30 PM
آخر رد: ماشي
  [سؤال] الارقام العربية في نسخة كوريل 2021 ونسخة 2020 wisam abduljaleel algburi 2 918 23-09-21, 10:56 AM
آخر رد: ابراهيم ايبو
  تحويل الارقام الي حروف محمد بوقزاحة 7 6,809 12-08-21, 09:03 AM
آخر رد: Jamil Alanesi
  [VB.NET] مساعدة: مع اداة print document الارقام تطبع انجليزى مع ويندز 8 أو 10 فقط هل من حل؟ ym_a11 3 965 24-03-21, 11:07 PM
آخر رد: أبو عبدالله الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم