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

<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اسئلة تقنية البرمجة Dev Express]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 21:55:54 +0000 MyBB <![CDATA[تحويل كود من GRIDVIEW الى GRIDCONTROL]]> https://vb4arb.com/vb/showthread.php?tid=39475 Wed, 08 Sep 2021 13:03:07 +0000 tfarejdz]]> https://vb4arb.com/vb/showthread.php?tid=39475
اخواني الاعزاء :

هذا كود لإذراج المنتج عن طريق الباركود إلى قاعدة البيانات ، فهل يمكن تحويله الى تقنية الديف إكسربرس ، فإنني حاولت كثيرا ولم أستطع .

كود :
Try

            If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then

                If Trim(InvoiceBarcode.Text) = "" Then Exit Sub

                For i = 0 To Dgvsearch.Rows.Count - 1

                    If Dgvsearch.Rows(i).Cells(9).Value = InvoiceBarcode.Text Then

                        Dgvsearch.Rows(i).Cells(5).Value += 1

                        Dgvsearch.Rows(i).Cells(7).Value = Val(Dgvsearch.Rows(i).Cells(5).Value) * Val(Dgvsearch.Rows(i).Cells(3).Value)

                        InvoiceBarcode.Text = Nothing

                        picBarcode.BackgroundImage = Nothing

                        CalcSalatax()

                        GoTo EOS

                    End If

                Next

                Dim Sql = ""

                Dim Barc = ""

                If GetFieldName("FirstUnitBarcode") = True Then

                    Sql = "select * from Items where FirstUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 1

                ElseIf GetFieldName("SecondUnitBarcode") = True Then

                    Sql = "select * from Items where SecondUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 2

                ElseIf GetFieldName("ThirdUnitBarcode") = True Then

                    Sql = "select * from Items where ThirdUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 3

                Else

                    GoTo EOS

                End If

                Dim x = Split(GetDef_UnitAndPriceBuy(itmcod), "|")

                If Conn.State = 1 Then Conn.Close()

                Conn.Open()

                Dim Adp As New SqlClient.SqlDataAdapter(Sql, Conn)

                Dim Ds = New DataSet

                Adp.Fill(Ds)

                Dim Dt = Ds.Tables(0)

                If Dt.Rows.Count > 0 Then

                    Dgvsearch.ClearSelection()

                    Dgvsearch.Rows.Add()

                    Dim RowIndex = Dgvsearch.Rows.Count - 1

                    Dgvsearch.Rows(RowIndex).Selected = True

                    Dgvsearch.Rows(RowIndex).Cells(0).Value = Dt.Rows(0).Item("ItemsCode")

                    Dgvsearch.Rows(RowIndex).Cells(1).Value = Dt.Rows(0).Item("ItemsName")

                    itmcod = Dgvsearch.CurrentRow.Cells(1).Value

                    Dgvsearch.Rows(RowIndex).Cells(9).Value = InvoiceBarcode.Text

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("FirstUnit")

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("SecondUnit")

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("ThirdUnit")

                    Dgvsearch.Rows(RowIndex).Cells(5).Value = 1

                    Dgvsearch.Rows(RowIndex).Cells(3).Value = Format(GetDef_FullPrice(Dt.Rows(0).Item("ItemsCode"), Barc), "0.00")

                    Dgvsearch.Rows(RowIndex).Cells(4).Value = Format(GetDef_FullPriceBuy(Dt.Rows(0).Item("ItemsCode"), Barc), "0.00")

                    Dgvsearch.Rows(RowIndex).Cells(6).Value = "0.00"

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "1"

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "1"

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "2"

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "2"

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "3"

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "3"

                    Dgvsearch.Rows(RowIndex).Cells(14).Value = Dt.Rows(0).Item("CategorizationName")

                    Dgvsearch.Rows(RowIndex).Cells(7).Value = Format(Val(Dgvsearch.Rows(RowIndex).Cells(5).Value) * Val(Dgvsearch.Rows(RowIndex).Cells(3).Value), "0.00") - Format(Val(Dgvsearch.Rows(RowIndex).Cells(6).Value), "0.00")

                    'Dgvsearch.ClearSelection()

                    InvoiceBarcode.Text = ""

                End If

                CalcSalatax()

                Conn.Close()

            End If

EOS:

        Catch ex As Exception

            Conn.Close()

            MsgBox(ex.Message, vbCritical)

        End Try

]]>
اخواني الاعزاء :

هذا كود لإذراج المنتج عن طريق الباركود إلى قاعدة البيانات ، فهل يمكن تحويله الى تقنية الديف إكسربرس ، فإنني حاولت كثيرا ولم أستطع .

كود :
Try

            If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then

                If Trim(InvoiceBarcode.Text) = "" Then Exit Sub

                For i = 0 To Dgvsearch.Rows.Count - 1

                    If Dgvsearch.Rows(i).Cells(9).Value = InvoiceBarcode.Text Then

                        Dgvsearch.Rows(i).Cells(5).Value += 1

                        Dgvsearch.Rows(i).Cells(7).Value = Val(Dgvsearch.Rows(i).Cells(5).Value) * Val(Dgvsearch.Rows(i).Cells(3).Value)

                        InvoiceBarcode.Text = Nothing

                        picBarcode.BackgroundImage = Nothing

                        CalcSalatax()

                        GoTo EOS

                    End If

                Next

                Dim Sql = ""

                Dim Barc = ""

                If GetFieldName("FirstUnitBarcode") = True Then

                    Sql = "select * from Items where FirstUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 1

                ElseIf GetFieldName("SecondUnitBarcode") = True Then

                    Sql = "select * from Items where SecondUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 2

                ElseIf GetFieldName("ThirdUnitBarcode") = True Then

                    Sql = "select * from Items where ThirdUnitBarcode=N'" & InvoiceBarcode.Text.Trim & "'"

                    Barc = 3

                Else

                    GoTo EOS

                End If

                Dim x = Split(GetDef_UnitAndPriceBuy(itmcod), "|")

                If Conn.State = 1 Then Conn.Close()

                Conn.Open()

                Dim Adp As New SqlClient.SqlDataAdapter(Sql, Conn)

                Dim Ds = New DataSet

                Adp.Fill(Ds)

                Dim Dt = Ds.Tables(0)

                If Dt.Rows.Count > 0 Then

                    Dgvsearch.ClearSelection()

                    Dgvsearch.Rows.Add()

                    Dim RowIndex = Dgvsearch.Rows.Count - 1

                    Dgvsearch.Rows(RowIndex).Selected = True

                    Dgvsearch.Rows(RowIndex).Cells(0).Value = Dt.Rows(0).Item("ItemsCode")

                    Dgvsearch.Rows(RowIndex).Cells(1).Value = Dt.Rows(0).Item("ItemsName")

                    itmcod = Dgvsearch.CurrentRow.Cells(1).Value

                    Dgvsearch.Rows(RowIndex).Cells(9).Value = InvoiceBarcode.Text

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("FirstUnit")

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("SecondUnit")

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(2).Value = Dt.Rows(0).Item("ThirdUnit")

                    Dgvsearch.Rows(RowIndex).Cells(5).Value = 1

                    Dgvsearch.Rows(RowIndex).Cells(3).Value = Format(GetDef_FullPrice(Dt.Rows(0).Item("ItemsCode"), Barc), "0.00")

                    Dgvsearch.Rows(RowIndex).Cells(4).Value = Format(GetDef_FullPriceBuy(Dt.Rows(0).Item("ItemsCode"), Barc), "0.00")

                    Dgvsearch.Rows(RowIndex).Cells(6).Value = "0.00"

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "1"

                    If Barc = 1 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "1"

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "2"

                    If Barc = 2 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "2"

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(10).Value = "3"

                    If Barc = 3 Then Dgvsearch.Rows(RowIndex).Cells(11).Value = "3"

                    Dgvsearch.Rows(RowIndex).Cells(14).Value = Dt.Rows(0).Item("CategorizationName")

                    Dgvsearch.Rows(RowIndex).Cells(7).Value = Format(Val(Dgvsearch.Rows(RowIndex).Cells(5).Value) * Val(Dgvsearch.Rows(RowIndex).Cells(3).Value), "0.00") - Format(Val(Dgvsearch.Rows(RowIndex).Cells(6).Value), "0.00")

                    'Dgvsearch.ClearSelection()

                    InvoiceBarcode.Text = ""

                End If

                CalcSalatax()

                Conn.Close()

            End If

EOS:

        Catch ex As Exception

            Conn.Close()

            MsgBox(ex.Message, vbCritical)

        End Try

]]> <![CDATA[مشكل التثبيت من تحزيم برنامج Clickone]]> https://vb4arb.com/vb/showthread.php?tid=38589 Sun, 06 Jun 2021 13:48:21 +0000 jurry]]> https://vb4arb.com/vb/showthread.php?tid=38589 هناك مشكل عند تثبيت البرنامج من خاصية النشر Clickone

تظهر في نهاية التثبيت
رسالة خطأ
Strong name signature not valid for this assembly DevExpress.Utils.v21.1.dll.

ارجو المساعدة
وشكرا لكم]]> هناك مشكل عند تثبيت البرنامج من خاصية النشر Clickone

تظهر في نهاية التثبيت
رسالة خطأ
Strong name signature not valid for this assembly DevExpress.Utils.v21.1.dll.

ارجو المساعدة
وشكرا لكم]]> <![CDATA[كيفيه انشاء تقارير بالديف اكسبريس والفيجوال بيسك]]> https://vb4arb.com/vb/showthread.php?tid=38553 Tue, 01 Jun 2021 21:44:11 +0000 حسن الجلب]]> https://vb4arb.com/vb/showthread.php?tid=38553 كيفي عمل تقارير بالديف اكسبريس والفيجوال بيسك]]> كيفي عمل تقارير بالديف اكسبريس والفيجوال بيسك]]> <![CDATA[سؤال فى gridview]]> https://vb4arb.com/vb/showthread.php?tid=37849 Sun, 21 Feb 2021 09:04:35 +0000 habamix]]> https://vb4arb.com/vb/showthread.php?tid=37849 السلام عليكم

ممكن شرح على عمود devexpress غير منضم Gridview

devexpress unbound column Gridview

]]> السلام عليكم

ممكن شرح على عمود devexpress غير منضم Gridview

devexpress unbound column Gridview

]]> <![CDATA[مشكله فى gridcontrol]]> https://vb4arb.com/vb/showthread.php?tid=37602 Wed, 27 Jan 2021 08:24:23 +0000 habamix]]> https://vb4arb.com/vb/showthread.php?tid=37602 السلام عليكم

كل ما ادخل شي فى السداد يتم مسح الشي تلقائي هل من حل

]]> السلام عليكم

كل ما ادخل شي فى السداد يتم مسح الشي تلقائي هل من حل

]]> <![CDATA[سؤال]]> https://vb4arb.com/vb/showthread.php?tid=37552 Fri, 22 Jan 2021 10:43:19 +0000 نايف 2006]]> https://vb4arb.com/vb/showthread.php?tid=37552 الاخوة الكرام واجهتني هذه المشكلة عند إضافة تقرير الموضح بالمرفق
ارجو ممن لديه الحل ان يساعدني جزاه الله خير الجزاء .

.png

تقرير.PNG (الحجم : 86.61 ك ب / التحميلات : 26) ]]> الاخوة الكرام واجهتني هذه المشكلة عند إضافة تقرير الموضح بالمرفق
ارجو ممن لديه الحل ان يساعدني جزاه الله خير الجزاء .

.png

تقرير.PNG (الحجم : 86.61 ك ب / التحميلات : 26) ]]> <![CDATA[سؤال..]]> https://vb4arb.com/vb/showthread.php?tid=36388 Sun, 13 Sep 2020 18:04:14 +0000 نايف 2006]]> https://vb4arb.com/vb/showthread.php?tid=36388 السلام عليكم ورحمة الله وبركاته .
أيها الإخوة الكرام عندي مشكلة في نقل البيانات من الفورم ا
الى الفورم 2
ومعضلتي الاتي :
-------------------------------------------
لفورم 1
يوجد فيه أداة GridControl1
تحتوي البيانات على :
الاسم :
تاريخ الميلاد:
وقت الميلاد:

اريد عندما أقوم بالضغط على
امر التعديل SimpleButton1
نقل البيانات الى الفوم 2 لتعديل بيانات
الشخص المحددة في الأداة GridControl1.
-------------------------------------------
الفوم 2
يوجد فيه أداة
TextEdit1 الاسم:
DateTimePicker1 تاريخ الميلاد :
DateTimePicker2 وقت الولادة :
-------------------------------------------
جزيل الشكر والتقدير لكل من ساعدني واسال الله ان يفتح عليه ويبارك فيه وان يزيده علما .

.png

فورم 1.PNG (الحجم : 27.15 ك ب / التحميلات : 69)

.png

فورم 2.PNG (الحجم : 6.34 ك ب / التحميلات : 68) ]]> السلام عليكم ورحمة الله وبركاته .
أيها الإخوة الكرام عندي مشكلة في نقل البيانات من الفورم ا
الى الفورم 2
ومعضلتي الاتي :
-------------------------------------------
لفورم 1
يوجد فيه أداة GridControl1
تحتوي البيانات على :
الاسم :
تاريخ الميلاد:
وقت الميلاد:

اريد عندما أقوم بالضغط على
امر التعديل SimpleButton1
نقل البيانات الى الفوم 2 لتعديل بيانات
الشخص المحددة في الأداة GridControl1.
-------------------------------------------
الفوم 2
يوجد فيه أداة
TextEdit1 الاسم:
DateTimePicker1 تاريخ الميلاد :
DateTimePicker2 وقت الولادة :
-------------------------------------------
جزيل الشكر والتقدير لكل من ساعدني واسال الله ان يفتح عليه ويبارك فيه وان يزيده علما .

.png

فورم 1.PNG (الحجم : 27.15 ك ب / التحميلات : 69)

.png

  فورم 2.PNG (الحجم : 6.34 ك ب / التحميلات : 68) ]]> <![CDATA[كيفيه استخدام ال Button dropdoun في الخاص بمجموعة الديف اكسبريس]]> https://vb4arb.com/vb/showthread.php?tid=35967 Sun, 02 Aug 2020 08:49:54 +0000 منه]]> https://vb4arb.com/vb/showthread.php?tid=35967 كيفيه استخدام ال Button dropdoun في الخاص بمجموعة الديف
وممكن كتاب شرح كامل لادوات لادوف اكسبريس]]> كيفيه استخدام ال Button dropdoun في الخاص بمجموعة الديف
وممكن كتاب شرح كامل لادوات لادوف اكسبريس]]> <![CDATA[ممكن كود حذف الاعمده المحدده فقط داخل الجريد كنترول الخاصة بمجموعة الديف اكسبريس]]> https://vb4arb.com/vb/showthread.php?tid=35966 Sun, 02 Aug 2020 08:44:08 +0000 منه]]> https://vb4arb.com/vb/showthread.php?tid=35966 ممكن كود حذف الاعمده المحدده فقط داخل الجريد كنترول الخاصة بمجموعة الديف اكسبريس]]> ممكن كود حذف الاعمده المحدده فقط داخل الجريد كنترول الخاصة بمجموعة الديف اكسبريس]]> <![CDATA[التحكم في صلاحيات المستخدمين Devexpress Ribbon Control]]> https://vb4arb.com/vb/showthread.php?tid=35674 Wed, 15 Jul 2020 19:14:44 +0000 محمد العامر]]> https://vb4arb.com/vb/showthread.php?tid=35674 اسعد الله جميع اوقاتكم بكل خير
اتمنى ان يكون الجميع بصحه وعافيه
اخواني الاعزاء قمت بتطبيق الشرح المستخدم في الفديو التالي https://youtu.be/htMS66-6KVc ل menu strip
ولكن لم استطع تطبيق الشرح على ادوات devexpress ribbon control السؤال كيف استطيع ان اطبق الشرح علي ادوات Devexpress Ribbon Control]]> اسعد الله جميع اوقاتكم بكل خير
اتمنى ان يكون الجميع بصحه وعافيه
اخواني الاعزاء قمت بتطبيق الشرح المستخدم في الفديو التالي https://youtu.be/htMS66-6KVc ل menu strip
ولكن لم استطع تطبيق الشرح على ادوات devexpress ribbon control السؤال كيف استطيع ان اطبق الشرح علي ادوات Devexpress Ribbon Control]]> <![CDATA[بطريقة انشاء تقرير Dev Express Report شامل الموظف بـ رقمه بالوظيفي]]> https://vb4arb.com/vb/showthread.php?tid=35559 Thu, 09 Jul 2020 01:09:41 +0000 محمد العامر]]> https://vb4arb.com/vb/showthread.php?tid=35559 واجهة مشاكل كثيرة في استخدام Crystal Report لانشاء التقارير وثقل في البرنامج والجهاز
الان غير التقارير في البرنامج واستخدمة  Dev Express ولكن لم أستطع أن أصنع تقرير شامل عن معلومات الموظف إستنادا إلى رقمه الوظيفي
يني لدي عدة جداول"الاجازات، السلف، الدورات، معلومات شخصية.... إلخ" كيف أستطيع أن أستخرج جميع مايخص الرقم الوظيفي للموظف في تقرير مفصل؟

حصلت شروحات كثير ولكن بلغة #C ولم أستطع أن أطبقها على vb.net

ارجو المساعدة]]> واجهة مشاكل كثيرة في استخدام Crystal Report لانشاء التقارير وثقل في البرنامج والجهاز
الان غير التقارير في البرنامج واستخدمة  Dev Express ولكن لم أستطع أن أصنع تقرير شامل عن معلومات الموظف إستنادا إلى رقمه الوظيفي
يني لدي عدة جداول"الاجازات، السلف، الدورات، معلومات شخصية.... إلخ" كيف أستطيع أن أستخرج جميع مايخص الرقم الوظيفي للموظف في تقرير مفصل؟

حصلت شروحات كثير ولكن بلغة #C ولم أستطع أن أطبقها على vb.net

ارجو المساعدة]]> <![CDATA[مشكله تشغيل البرنامج عند العميل الا لما اسطب ديف اكسبريس]]> https://vb4arb.com/vb/showthread.php?tid=35017 Fri, 29 May 2020 13:54:24 +0000 Codack]]> https://vb4arb.com/vb/showthread.php?tid=35017 دلوقتي انا عملت برنامج بتقنيه الديف اكسبريس استخدمت المكتبات بتاعتها في برنامج الفيجوال بيسك و بعد ما خلصته بقربه عندي شغال عندي تمام
لكن عندي مشكله بسيطه بعد ما خلصت البرنامج واسطبه عند العميل مش بيشتغل غير لما اسطب برنامج ديف اكسبريس بالكامل
ممكن لو سمحت حل المشكله دي]]> دلوقتي انا عملت برنامج بتقنيه الديف اكسبريس استخدمت المكتبات بتاعتها في برنامج الفيجوال بيسك و بعد ما خلصته بقربه عندي شغال عندي تمام
لكن عندي مشكله بسيطه بعد ما خلصت البرنامج واسطبه عند العميل مش بيشتغل غير لما اسطب برنامج ديف اكسبريس بالكامل
ممكن لو سمحت حل المشكله دي]]> <![CDATA[تحويل كود]]> https://vb4arb.com/vb/showthread.php?tid=34848 Tue, 19 May 2020 21:08:17 +0000 نايف 2006]]> https://vb4arb.com/vb/showthread.php?tid=34848 السلام عليكم ورحمة الله وبركاته .

امل التكرم في مساعدتي في تحويل الكود الحالي من الدتا جريد فيو العادية DataGridView1    الى    DevExpress GridControl1 GridView1

REM ----------------------------------------------------

For Each R As DataGridViewRow In DataGridView1.Rows
R.HeaderCell.Value = (R.Index + 1).ToString
Next
DataGridView1.Rows.Add()

DataGridView1.Item(0, DGV.Rows.Count - 1).Value = TextBox1.Text
DataGridView1.Item(1, DGV.Rows.Count - 1).Value = TextBox2.Text
DataGridView1.Item(2, DGV.Rows.Count - 1).Value = TextBox3.Text


اريده بنفس التنسيق من يستطيع مساعدتي اسال الله ان يفرج همه .]]> السلام عليكم ورحمة الله وبركاته .

امل التكرم في مساعدتي في تحويل الكود الحالي من الدتا جريد فيو العادية DataGridView1    الى    DevExpress GridControl1 GridView1

REM ----------------------------------------------------

For Each R As DataGridViewRow In DataGridView1.Rows
R.HeaderCell.Value = (R.Index + 1).ToString
Next
DataGridView1.Rows.Add()

DataGridView1.Item(0, DGV.Rows.Count - 1).Value = TextBox1.Text
DataGridView1.Item(1, DGV.Rows.Count - 1).Value = TextBox2.Text
DataGridView1.Item(2, DGV.Rows.Count - 1).Value = TextBox3.Text


اريده بنفس التنسيق من يستطيع مساعدتي اسال الله ان يفرج همه .]]> <![CDATA[سؤال عن تقارير الديف اكسبريس]]> https://vb4arb.com/vb/showthread.php?tid=32155 Sun, 17 Nov 2019 07:45:05 +0000 محمد بن عطية]]> https://vb4arb.com/vb/showthread.php?tid=32155 قمت بانجاز تقارير باستعمال تقنية الديف اكسبريس النسخة 14
لكن الكتابة في بعض الحقول تظهر من اليسار الى اليمين يعني مثلا 1ج م ع 2 تظهر هكذا ج م ع 2 1
ماهو الحل برأيكم؟
علما اني استخدمت النسخة 17 ومافيها هذ المشكل
لكن فيها مشكل آخر وهو ترقيم الصفوف

.png

102.png (الحجم : 3.28 ك ب / التحميلات : 60) ]]> قمت بانجاز تقارير باستعمال تقنية الديف اكسبريس النسخة 14
لكن الكتابة في بعض الحقول تظهر من اليسار الى اليمين يعني مثلا 1ج م ع 2 تظهر هكذا ج م ع 2 1
ماهو الحل برأيكم؟
علما اني استخدمت النسخة 17 ومافيها هذ المشكل
لكن فيها مشكل آخر وهو ترقيم الصفوف

.png

102.png (الحجم : 3.28 ك ب / التحميلات : 60) ]]> <![CDATA[كيفية اضافة سطور فى Gridview ومنع التكرار ؟]]> https://vb4arb.com/vb/showthread.php?tid=32043 Sat, 09 Nov 2019 12:06:39 +0000 gedo]]> https://vb4arb.com/vb/showthread.php?tid=32043 السلام عليكم ورحمة الله وبركاته

كيف حالكم ياشباب ان شاء الله تكونوا بخير حال

كيف أضيف سطر فى xtragridview من textbox ومنع التكرار وزيادة الكمية وللتوضيح

انا استخدم هذا الكود مع الجريد العادية للدوت نت

كود :
       For i As Integer = 0 To Datagridview1.Rows.Count - 1

            If TxtCode.Text = Datagridview1.Rows(i).Cells(0).Value() Then

 Datagridview1.Rows(i).Cells(3).Value = Datagridview1.Rows(i).Cells(3).Value + Val(TxtQty.Text)

                Return

            End If

        Next

        Datagridview1.Rows.Add(TxtCode.Text, TxtName.Text, TxtPrice.Text, TxtQty.Text)

هذا الكود يقوم باضافة سطر فى الجريد واذا وجد ان البيانات موجودة فيقوم بزيادة الكمية فى الجريد

اريد ان احصل على نفس النتيجة باداة xtragridview

فى انتظار مساعدتكم

بارك الله فيكم جميعا]]> السلام عليكم ورحمة الله وبركاته

كيف حالكم ياشباب ان شاء الله تكونوا بخير حال

كيف أضيف سطر فى xtragridview من textbox ومنع التكرار وزيادة الكمية وللتوضيح

انا استخدم هذا الكود مع الجريد العادية للدوت نت

كود :
       For i As Integer = 0 To Datagridview1.Rows.Count - 1

            If TxtCode.Text = Datagridview1.Rows(i).Cells(0).Value() Then

 Datagridview1.Rows(i).Cells(3).Value = Datagridview1.Rows(i).Cells(3).Value + Val(TxtQty.Text)

                Return

            End If

        Next

        Datagridview1.Rows.Add(TxtCode.Text, TxtName.Text, TxtPrice.Text, TxtQty.Text)