منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال عن تنسيق الارقام في داتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39879)



سؤال عن تنسيق الارقام في داتا جريد فيو - ابو انس - 03-11-21

السلام عليكم
عند استخدام الكيبورد لادخال رقم في داتا جريد فيو مثلا رقم مليون 1000000
اريده ان يظهر بهذا الشكل 1,000,000
اعرف ان هناك اكود كثيرة وطرق كثيرة لعمل ذلك ولكن جميع الاكواد التي اعرفها تنجح عند عرض بيانات في داتا جريد فيو 
ولا تنجح عند استخدام الكيبورد لادخال رقم
شكرا لكم
الطريقة التي اعرفها بعد مغادرة الخلية التي تحتوي على الرقم يتم نسخ الرقم الى متغير ثم يتم نسخ المتغير الى نفس الخلية هل هناك طريقة مختصرة اكثر

كود :
       Dim a As Integer

       a = DGV.Rows(DGV.CurrentRow.Index).Cells(DGV.CurrentCell.ColumnIndex).Value
       DGV.Columns(0).DefaultCellStyle.Format = "N0"
       DGV.Rows(DGV.CurrentRow.Index).Cells(DGV.CurrentCell.ColumnIndex).Value = a
هل هناك طريقة ثانية ...


RE: سؤال عن تنسيق الارقام في داتا جريد فيو - أشرف كريم 2 - 03-11-21

(03-11-21, 01:53 PM)ابو انس كتب : السلام عليكم
عند استخدام الكيبورد لادخال رقم في داتا جريد فيو مثلا رقم مليون 1000000
اريده ان يظهر بهذا الشكل 1,000,000
اعرف ان هناك اكود كثيرة وطرق كثيرة لعمل ذلك ولكن جميع الاكواد التي اعرفها تنجح عند عرض بيانات في داتا جريد فيو 
ولا تنجح عند استخدام الكيبورد لادخال رقم
شكرا لكم
الطريقة التي اعرفها بعد مغادرة الخلية التي تحتوي على الرقم يتم نسخ الرقم الى متغير ثم يتم نسخ المتغير الى نفس الخلية هل هناك طريقة مختصرة اكثر

كود :
       Dim a As Integer

       a = DGV.Rows(DGV.CurrentRow.Index).Cells(DGV.CurrentCell.ColumnIndex).Value
       DGV.Columns(0).DefaultCellStyle.Format = "N0"
       DGV.Rows(DGV.CurrentRow.Index).Cells(DGV.CurrentCell.ColumnIndex).Value = a
هل هناك طريقة ثانية ...

انا بستخدم الحدث CellFormatting
كود :
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    If e.ColumnIndex = 0 Then e.Value = Val(e.Value).ToString("N0")
End Sub



RE: سؤال عن تنسيق الارقام في داتا جريد فيو - ابو انس - 03-11-21

شكرا لك اشرف