تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المدين والدائن
#1
فى حسابات عملا رصيدهم 100 او 200 بس فى حاسابات سلبت كده مش عليه فلوس ده ليه فلوس 
يعنى قلب من مدين لدائن هل ممكن المساعده فى اضافة عمود فى الداتا جريد فيو  يكون عباره عن مدين او داين لو رصيده بقى بالسالب يبقى داين و نشيل السالب من الرصيد 
فكره بس مش عارف اطبقها تعتبر طريقه سهله
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
If TextBox1.Text 0 Then
            Label1
.Text ""
 
           Label2.Text TextBox1.Text
        ElseIf TextBox1
.Text 0 Then
            Label1
.Text "مدين"
 
           Label2.Text TextBox1.Text.Replace("-""")
 
       Else
            Label1
.Text "دائن"
 
           Label2.Text TextBox1.Text
        End 
If 
الرد }}}
تم الشكر بواسطة: نبيل فتحى
#3
(29-10-17, 09:40 AM)أسامة السالمي كتب :
PHP كود :
If TextBox1.Text 0 Then
            Label1
.Text ""
 
           Label2.Text TextBox1.Text
        ElseIf TextBox1
.Text 0 Then
            Label1
.Text "مدين"
 
           Label2.Text TextBox1.Text.Replace("-""")
 
       Else
            Label1
.Text "دائن"
 
           Label2.Text TextBox1.Text
        End 
If
 
   End Sub 
طب اذا تكرمت ممكن تطبق على الكود ده قبل الرصيد يقضل او بعده 
كود :
 Dim SS As String = "عام"
       dtcustm.Rows.Clear()
       Dim CMD As New OleDbCommand("select ID as [رقم العميل],fullname as [اسم العميل],tel as [التليفون],adress as [العنوان],cus_pa as [الرصيد] from tab_cus where fullname <> @PASS", con)
       CMD.Parameters.AddWithValue("@date", SS)
       con.Open()
       dtcustm.Load(cmd.ExecuteReader)
       dgvcust.DataSource = dtcustm
       con.Close()
الرد }}}
تم الشكر بواسطة:
#4
PHP كود :
 'أمر الانتقال الى السطر الأول
        For Each DataGridView In DataGridView1.Rows
            '
Me.DataGridView1.CurrentRow.Cells(0).Value عمود الرصيد
            
'Me.DataGridView1.CurrentRow.Cells(1).Value عمود دائن/مدين
            If Me.DataGridView1.CurrentRow.Cells(0).Value = 0 Then
                Me.DataGridView1.CurrentRow.Cells(1).Value = ""
            ElseIf Me.DataGridView1.CurrentRow.Cells(0).Value < 0 Then
                Me.DataGridView1.CurrentRow.Cells(1).Value = "مدين"
                Me.DataGridView1.CurrentRow.Cells(0).Value = Me.DataGridView1.CurrentRow.Cells(0).Value.Replace("-", "")
            Else
                Me.DataGridView1.CurrentRow.Cells(1).Value = "دائن"
            End If
            '
أمر الانتقال الى السطر التالي
        Next
        
'أمر الانتقال الى السطر الأول 
ضع الكود بعد كود ظهور البيانات.
لاكن لابد أن يكون هذا الجدول للعرض فقط، لأنك لو حفظت الجدول بهذه الحالة فسيكون جميع الأشخاص دائنين في المرة القادمة.
الرد }}}
تم الشكر بواسطة: نبيل فتحى
#5
(29-10-17, 10:44 AM)أسامة السالمي كتب :
PHP كود :
 'أمر الانتقال الى السطر الأول
        For Each DataGridView In DataGridView1.Rows
            '
Me.DataGridView1.CurrentRow.Cells(0).Value عمود الرصيد
            
'Me.DataGridView1.CurrentRow.Cells(1).Value عمود دائن/مدين
            If Me.DataGridView1.CurrentRow.Cells(0).Value = 0 Then
                Me.DataGridView1.CurrentRow.Cells(1).Value = ""
            ElseIf Me.DataGridView1.CurrentRow.Cells(0).Value < 0 Then
                Me.DataGridView1.CurrentRow.Cells(1).Value = "مدين"
                Me.DataGridView1.CurrentRow.Cells(0).Value = Me.DataGridView1.CurrentRow.Cells(0).Value.Replace("-", "")
            Else
                Me.DataGridView1.CurrentRow.Cells(1).Value = "دائن"
            End If
            '
أمر الانتقال الى السطر التالي
        Next
        
'أمر الانتقال الى السطر الأول 
ضع الكود بعد كود ظهور البيانات.
لاكن لابد أن يكون هذا الجدول للعرض فقط، لأنك لو حفظت الجدول بهذه الحالة فسيكون جميع الأشخاص دائنين في المرة القادمة.
تسلم يابشهمندس

(29-10-17, 11:22 AM)نبيل فتحى كتب :
(29-10-17, 10:44 AM)أسامة السالمي كتب :
PHP كود :
  'Me.dgvcust.CurrentRow.Cells(4).Value = Me.dgvcust.CurrentRow.Cells(4).Value.Replace("-", "") 
الكود ده بس الى غلط الى بيشيل السالب 
الرد }}}
تم الشكر بواسطة: أسامة السالمي
#6
(29-10-17, 11:22 AM)نبيل فتحى كتب : نبيل فتحى

PHP كود :
  'Me.dgvcust.CurrentRow.Cells(4).Value = Me.dgvcust.CurrentRow.Cells(4).Value.Replace("-", "") 
الكود ده بس الى غلط الى بيشيل السالب 

 كيف عرفت إنه خطأ (هل في قيمة ما تبدلت أو تبدلت بشكل خاطئ) ؟!
الرد }}}
تم الشكر بواسطة: نبيل فتحى
#7
(30-10-17, 11:50 PM)أسامة السالمي كتب :
(29-10-17, 11:22 AM)نبيل فتحى كتب : نبيل فتحى

PHP كود :
  'Me.dgvcust.CurrentRow.Cells(4).Value = Me.dgvcust.CurrentRow.Cells(4).Value.Replace("-", "") 
الكود ده بس الى غلط الى بيشيل السالب 

 كيف عرفت إنه خطأ (هل في قيمة ما تبدلت أو تبدلت بشكل خاطئ) ؟!
كانت فيه مشكله المشكله دلواتى انه مش شغال صح فيه مشكله انه بيختار اول صف بس وكمان بيكون غلط

كود :
 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()
الرد }}}
تم الشكر بواسطة:
#8
لابد تحط أوامر الإنتقال.
أنا استخدم طريقة الربط بالمعالج فيكون الكود :
PHP كود :
Me.BindingSorse1.MoveNext 

لكن ما أعرف ايش هو الكود اللي تستخدمه للإنتقال في طريقة الاتصال بالكود فوضعت لك مكان امر الانتقال "أمر الانتقال الى السطر للتالي" وكل اللي عليك انك تستبدل هذه العبارة بالكود الصحيح.
الرد }}}
تم الشكر بواسطة: نبيل فتحى


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم