[alfakeehy]

الف شكر لك اخي
بس ياليت تعطيني الكود كامل اللي احطه في الكومند

او تعطيني ناتج جمع مابداخل الداتا قريد

انا حطيت هذا الكود بس للاسف مايجمع لي كامل الارقام اللي داخل عمود في الداتا قريد
Dim x As Integer

For x = 0 To DataGrid1.ApproxCount - 1

DataGrid1.Col = 1
DataGrid1.Row = x

Text5.Text = Val(Text5.Text) + Val(DataGrid1.Text)

Next


تحياتي لك واشكرك على تواضعك وردك على استفساري