27-04-21, 08:21 PM
عندى قاعدة سيكوال مع برنامج فيجوال
عندى مشكلة في قيد اليومية حيث ان الطرف المدين يساوى الطرف الدائن وعند الحفظ يعطى رسالة عدم توازن القيد
والقيد كما بالشكل عند وضعه على الاكسيل يكون متوازن كما يلى
دائن [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
عندى مشكلة في قيد اليومية حيث ان الطرف المدين يساوى الطرف الدائن وعند الحفظ يعطى رسالة عدم توازن القيد
والقيد كما بالشكل عند وضعه على الاكسيل يكون متوازن كما يلى
دائن [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