المدين والدائن - نسخة قابلة للطباعة

المدين والدائن - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22300)

المدين والدائن - نبيل فتحى - 29-10-17

فى حسابات عملا رصيدهم 100 او 200 بس فى حاسابات سلبت كده مش عليه فلوس ده ليه فلوس
يعنى قلب من مدين لدائن هل ممكن المساعده فى اضافة عمود فى الداتا جريد فيو يكون عباره عن مدين او داين لو رصيده بقى بالسالب يبقى داين و نشيل السالب من الرصيد
فكره بس مش عارف اطبقها تعتبر طريقه سهله

RE: المدين والدائن - أسامة السالمي - 29-10-17

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 

RE: المدين والدائن - نبيل فتحى - 29-10-17

(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()

RE: المدين والدائن - أسامة السالمي - 29-10-17

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
        'أمر الانتقال الى السطر الأول 

ضع الكود بعد كود ظهور البيانات.
لاكن لابد أن يكون هذا الجدول للعرض فقط، لأنك لو حفظت الجدول بهذه الحالة فسيكون جميع الأشخاص دائنين في المرة القادمة.

RE: المدين والدائن - نبيل فتحى - 29-10-17

(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("-", "")
الكود ده بس الى غلط الى بيشيل السالب

RE: المدين والدائن - أسامة السالمي - 30-10-17

(29-10-17, 11:22 AM)نبيل فتحى كتب : نبيل فتحى

PHP كود :

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

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

RE: المدين والدائن - نبيل فتحى - 31-10-17

(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()

RE: المدين والدائن - أسامة السالمي - 31-10-17

لابد تحط أوامر الإنتقال.
أنا استخدم طريقة الربط بالمعالج فيكون الكود :

PHP كود :

Me.BindingSorse1.MoveNext 

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