[نبيل فتحى]

كود :

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 جنيه وبيقولى خالص بيشتغلنى 
فضلا منكم المساعده

[السيد الجوهري]

علامة أكبر من <
علامة اصغر من >

عدل العلامة

[نبيل فتحى]

علامة أكبر من   <
علامة اصغر من >

عدل العلامة

المصفوقه نفسها كودها غلط

[a.ahmed]

PHP كود :

Dim sql As String = _
    "SELECT [ID]         AS [رقم العميل],                  " & _
    "       [fullname]   AS [اسم العميل],                  " & _
    "       [tel]        AS [التليفون],                    " & _
    "       [adress]     AS [العنوان],                     " & _
    "       [cus_pa]     AS [الرصيد],                      " & _
    "       IIF([cus_pa]=0, 'خالص', IIF([cus_pa]>0, 'مدين', 'دائن')) AS [الحاله]    " & _
    "FROM   [tab_cus]                                       " & _
    "WHERE  [fullname] <> @fname                            "

Dim SS As String = "عام"
dgvcust.Rows.Clear()
Dim da As New OleDbDataAdapter(sql, con)
da.SelectCommand.Parameters.AddWithValue("@fname", SS)
da.Fill(dtcustm)

dgvcust.DataSource = dtcustm