[nooralcown]

بالنسبة للتنسيق داخل تكست بوكس  تفضل

كود :

Private Sub TextBox2_LostFocus(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
       'استخدام دالة FormatNumber
       Try
           Dim x As Decimal = CDec(TextBox2.Text)
           TextBox2.Text = (FormatNumber(x, 3))
       Catch
           Exit Sub
       End Try

 
 End Sub

---

بالنسبة للتنسيق داخل داتا قرايد فيو   تفضل  
طبعا هنا التنسيق لاكثر من عمود  انا ضفت اداة NumericUpDown1 ليحدد المستدم عدد الارقام العشرية اذا بدك تغير حاول تعديل الكود   
مع ملاحظة في سطر معطل , هذا السطر هو البديل ان حبيت تعدل لعدد محدد وليس ترك الخيار للمستخدم   

كود :

Private Sub DataGridViewX1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridViewX1.CellFormatting
       Try


           With Me.DataGridViewX1

               If e.ColumnIndex = 2 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
                   '   e.Value = CDec(e.Value).ToString("f3")


                   e.Value = FormatNumber((e.Value).ToString, NumericUpDown1.Value)
                   e.FormattingApplied = True
               End If
               If e.ColumnIndex = 3 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
                   e.Value = FormatNumber((e.Value).ToString, NumericUpDown1.Value)
                   e.FormattingApplied = True
               End If
               If e.ColumnIndex = 4 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
                   e.Value = FormatNumber((e.Value).ToString, NumericUpDown2.Value)
                   e.FormattingApplied = True
               End If
               If e.ColumnIndex = 5 AndAlso e.RowIndex <> DataGridViewX1.NewRowIndex Then
                   e.Value = FormatNumber((e.Value).ToString, NumericUpDown2.Value)
                   e.FormattingApplied = True
               End If
           End With
       Catch ex As Exception

       End Try