[ahmedbezia]

[b] السلام عليكم    [/b]

كيف اطبق هدا الكود علي خلية من خلايا DataGridView

     Quantité.Text = Format(Val(Quantité.Text), "00")

[Taha Okla]

(09-04-23, 02:06 AM)ahmedbezia كتب :

[b] السلام عليكم    [/b]

كيف اطبق هدا الكود علي خلية من خلايا DataGridView

     Quantité.Text = Format(Val(Quantité.Text), "00")

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

انسخ هذا الكود إلى مشروعك ..

كود :

Private Sub ConvToTowDigits(pDataGridView As DataGridView, iCol As Integer)
    For Each row As DataGridViewRow In pDataGridView.Rows
        row.Cells(iCol).Value = Format(Val(row.Cells(iCol).Value), "00")
    Next
End Sub

وقم بإستدعائه من خلال الأمر  : 

كود :

ConvToTowDigits(DataGridView1, 2)

الرقم (2) هو قيمة انديكس العمود وهو يساوي (رقم العمود - ا)   حيث أنه في أول عمود = (0)
مثلاً العمود الثالث نكتب 2، والعمود الرابع نكتب 3

[ahmedbezia]

(09-04-23, 02:40 AM)Taha Okla كتب :

(09-04-23, 02:06 AM)ahmedbezia كتب :

[b] السلام عليكم    [/b]

كيف اطبق هدا الكود علي خلية من خلايا DataGridView

     Quantité.Text = Format(Val(Quantité.Text), "00")

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

انسخ هذا الكود إلى مشروعك ..

كود :

Private Sub ConvToTowDigits(pDataGridView As DataGridView, iCol As Integer)
    For Each row As DataGridViewRow In pDataGridView.Rows
        row.Cells(iCol).Value = Format(Val(row.Cells(iCol).Value), "00")
    Next
End Sub

وقم بإستدعائه من خلال الأمر  : 

كود :

ConvToTowDigits(DataGridView1, 2)

الرقم (2) هو قيمة انديكس العمود وهو يساوي (رقم العمود - ا)   حيث أنه في أول عمود = (0)
مثلاً العمود الثالث نكتب 2، والعمود الرابع نكتب 3

شكرا اخي الكريم لاكن الكود لا يريد ان ينجح مع العمود الاول اي 0

[Taha Okla]

قم بارفاق مشروعك للنظر فيه