منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعده فى تعديل كود للمدين والداين

كود :

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

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

عدل العلامة

(01-11-17, 09:20 AM)السيد الجوهري كتب : [ -> ]علامة أكبر من <
علامة اصغر من >

عدل العلامة

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نبيل فتحى

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

نبيل فتحى

a.ahmed