تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن تنسيق الارقام في داتا جريد فيو
#1
السلام عليكم
عند استخدام الكيبورد لادخال رقم في داتا جريد فيو مثلا رقم مليون 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
هل هناك طريقة ثانية ...
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: أشرف كريم 2 , ابراهيم ايبو
#2
(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
الرد }}
تم الشكر بواسطة: ابو انس , ابراهيم ايبو , سعود
#3
شكرا لك اشرف
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: أشرف كريم 2 , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم