منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حل مشكلة الفاصلة الرقمية لحقل العملة

السلام عليكم ورخمة الله وبركاته

اصدقائي الاعزاء

لدي عملية حسابية بين حقل من نوع decimal(8, 2) وحقل اخر من نوع int وقمت بعملية حسابية كتالي :

الحقل الاول الحقل الثاني

4.00 * 150
15.00 * 300
30.00 * 500
80.00 * 800

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

المفترض الناتج يظهر بهذه الطريقة : 84.100.00

ولكن يظهر لي بهذه الطريقة : 84100.00

كود :

   Sub sum_totl()

        Dim tt, qut As Double

        For i As Integer = 0 To FlowLayoutPanel1.Controls.Count - 1

            tt += FlowLayoutPanel1.Controls(i).Controls("Label1").Text

            qut += FlowLayoutPanel1.Controls(i).Controls("Label5").Text

        Next

        Label14.Text = tt

        Label15.Text = qut

        Label13.Text = Val(Label14.Text) * Val(Label15.Text)

    End Sub

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذه كما في الكود عندك

كود :

TextBox3.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)).ToString("0,0.00")

وهذه طريقتي

كود :

Dim AA As Decimal

        AA = Val(TextBox1.Text) * Val(TextBox2.Text)

        'هذا السطر

        TextBox3.Text = String.Format("{0:0,0.00}", AA)

        'أو هذا السطر

        TextBox3.Text = AA.ToString("0,0.00")

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبدالكريم برشدان

ابراهيم ايبو