استفسار عن تقريب الأعداد العشرية لجدول في داتا جريد

استخدم الدالة Math.Ceiling

Math.Ceiling(1.5) = 2
Math.Ceiling(1.2) =2
Math.Ceiling(1.9) = 2
Math.Ceiling(2) = 2

شكراً لك اخي الكريم مهند

بس يا ليت لو تبين لي كيف أدرج الكود في الداتا جريد

جرب هذا

Public Class Form1

	Dim WithEvents tbl As New DataTable
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		tbl.Columns.Add("a", GetType(Integer))
		tbl.Columns.Add("b", GetType(Integer))
		tbl.Columns.Add("c", GetType(Double))
		Me.DataGridView1.AutoGenerateColumns = False
		Me.DataGridView1.DataSource = tbl

	End Sub

	Private Sub tbl_ColumnChanged(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) Handles tbl.ColumnChanged
		If e.Column.ColumnName = "a" Or e.Column.ColumnName = "b" Then
			Dim a As Integer = GetNumber(e.Row("a"))
			Dim b As Integer = GetNumber(e.Row("b"))
			Dim result As Double
			result = IIf(b = 0, 0, Math.Ceiling(a / b))
			e.Row("c") = result
			DataGridView1.Refresh()
		End If
	End Sub

	Function GetNumber(ByVal v As Object) As Integer
		Return IIf(v Is DBNull.Value, 0, v)
	End Function
End Class

شكرا جزيلا أخي حسن

جربت الحل وهو يعمل مائة بالمائة

العفو اخي ، وبالتوفيق.