+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده فى تعديل كود للمدين والداين (/showthread.php?tid=22355)
مساعده فى تعديل كود للمدين والداين - نبيل فتحى - 01-11-17
كود :
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()فضلا منكم المساعده
RE: مساعده فى تعديل كود للمدين والداين - السيد الجوهري - 01-11-17
علامة أكبر من <
علامة اصغر من >
عدل العلامة
RE: مساعده فى تعديل كود للمدين والداين - نبيل فتحى - 01-11-17
(01-11-17, 09:20 AM)السيد الجوهري كتب : علامة أكبر من <المصفوقه نفسها كودها غلط
علامة اصغر من >
عدل العلامة
RE: مساعده فى تعديل كود للمدين والداين - a.ahmed - 01-11-17
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