عدم توازن القيد على الرغم من ان الارقام متساوية

عدم توازن القيد على الرغم من ان الارقام متساوية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عدم توازن القيد على الرغم من ان الارقام متساوية (/showthread.php?tid=38357)

عدم توازن القيد على الرغم من ان الارقام متساوية - asdfar1977 - 27-04-21

عندى قاعدة سيكوال مع برنامج فيجوال
عندى مشكلة في قيد اليومية حيث ان الطرف المدين يساوى الطرف الدائن وعند الحفظ يعطى رسالة عدم توازن القيد

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

دائن [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

RE: عدم توازن القيد على الرغم من ان الارقام متساوية - messry - 27-04-21

السلام عليكم

حاول التالي

كود :

       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

RE: عدم توازن القيد على الرغم من ان الارقام متساوية - asdfar1977 - 28-04-21

(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