[نبيل فتحى]

كود :

Dim SS As String = "عام"
      dtcustm.Rows.Clear()
      Dim CMD As New OleDbCommand("select ID as [رقم العميل],fullname as [اسم العميل],tel as [التليفون],adress as [العنوان],cus_pa as [الرصيد],cus_typ as [الحاله] from tab_cus where fullname <> @PASS", con)
      CMD.Parameters.AddWithValue("@date", SS)
      con.Open()
      dtcustm.Load(CMD.ExecuteReader)
      dgvcust.DataSource = dtcustm
      'أمر الانتقال الى السطر الأول
      For Each r As DataGridViewRow In dgvcust.Rows
          If Val(r.Cells(4).Value) = 0 Then
              Me.dgvcust.CurrentRow.Cells(5).Value = "خالص"
          ElseIf Val(r.Cells(4).Value) < 0 Then
              Me.dgvcust.CurrentRow.Cells(5).Value = "دائن"
              Me.dgvcust.CurrentRow.Cells(4).Value = Me.dgvcust.CurrentRow.Cells(4).Value.ToString.Replace("-", "")
          Else
              Me.dgvcust.CurrentRow.Cells(5).Value = "مدين"
          End If
      Next
      con.Close()

الكود  المفروض يلف على الداتا جريد فيو كلها  ويشوف قيمة الرصيد لو اكبر من 0 يبقى مدين لو بالسالب يبقى دائن ولو صفر يبقى خالص هو بقى شغال اول سطر بس وكمان الراجل عليه 650 جنيه وبيقولى خالص بيشتغلنى 
فضلا منكم المساعده