[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