[ابو انس]

السلام عليكم
عند استخدام الكيبورد لادخال رقم في داتا جريد فيو مثلا رقم مليون 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

هل هناك طريقة ثانية ...

[أشرف كريم 2]

السلام عليكم
عند استخدام الكيبورد لادخال رقم في داتا جريد فيو مثلا رقم مليون 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

[ابو انس]

شكرا لك اشرف