تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: محمد اسماعيل


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة: مع اداة print document الارقام تطبع انجليزى مع ويندز 8 أو 10 فقط هل من حل؟ ym_a11 3 272 24-03-21, 11:07 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] سؤال في الارقام حسن الجلب 1 250 15-01-21, 08:06 AM
آخر رد: moosa_alabri
  [سؤال] سؤال في الارقام حسن الجلب 3 328 21-12-20, 06:33 PM
آخر رد: عبد الهادي بهاب
  [سؤال] الارقام الانجليزية في الداتا جريد فيو mohammed_abdu 1 417 18-11-20, 05:55 PM
آخر رد: INFLaaTy.cR
  كود تحويل الارقام الى حروف عمور2016 2 438 29-10-20, 03:55 PM
آخر رد: عمور2016
  كيف أجعل الـ TextBox لا يقبل سوي الارقام فقط ؟ PeterGhattas082460 2 468 15-10-20, 06:07 AM
آخر رد: kiki
  في القريد فيو يتم احتساب الارقام او الاعداد عمور2016 2 422 09-10-20, 10:39 PM
آخر رد: عمور2016
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 924 13-09-20, 06:05 PM
آخر رد: eman kh
  [VB.NET] مشكلة في الحفاظ على تنسيق الارقام والتاريخ في المشروع محمد العامر 4 739 23-07-20, 01:45 PM
آخر رد: محمد العامر
  الارقام بالعربي سمير1404 9 948 02-05-20, 01:20 AM
آخر رد: سمير1404

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


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