فیلد مبلغ

[rasoul2023]

سلام :

سلام دوستان چطوری میشه یه فیلد ( یا لیبل ) که مقدار یه مبلغ را نمایش میده سه رقم سه رقم ویرگول دار کرد البته وقتی این مبلغ قراره تو دیتا بیس ذخیره بشه از ویرگولها حذف بشه که تو عملیات ریاضی به مشکل بر نخوره .

مثلا : 10000 را با صورت 10,000 نمایش بده اما تودیتا بیس همون 10000 باشه .

با تشکر قبلی از دوستان .

[Mani_rf]

با استفاده از تابع Format Numberمی توانی این کار را انجام بدی :

Me.Text = FormatNumber(1250000, 0, 0, TriState.True, TriState.True)



برای برگرداندن به حالت اولیه هم از این تابع استفاده کن :

Replace (Me.Text ,",","")

[amin_iman82]

یک TextBox بذار روی فرم و از کد زیر استفاده کن.



Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
On Error Resume Next
sender.Text = Format(sender.Text, Nothing)
sender.Text = Format(CDbl(sender.Text), "##,0")
sender.Select(sender.Text.Length, 1)
End Sub

[rasoul2023]

یک TextBox بذار روی فرم و از کد زیر استفاده کن.



Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
On Error Resume Next
sender.Text = Format(sender.Text, Nothing)
sender.Text = Format(CDbl(sender.Text), "##,0")
sender.Select(sender.Text.Length, 1)
End Sub



سلام خسته نباشید :

آقا دست درد نکنه جالب بود اما کاش یکم هم توضیح میدادی واینکه گفته بودم من نمیخوام تودیتا بیس ویرگول وارد بشه چون تو عملیات های ریاضی به مشکل میخورم .

مانی جان از شما هم متشکرم البته تشکرهم میزنم اما اگه میشه جوابتونو کامل بدید که سوال دنباله دار و خسته کننده نشه این کد شما تو چه Event ای باید نوشته بشه .؟