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

الصفحات : 1 2

(20-03-20, 03:57 AM)عبد العزيز البسكري كتب : [ -> ]
أخي الكريم ..

قمت بمراجعة بعض الأكواد الكثيرة و المشابهة كصورة طبق الأصل لبعض مشاريع فواتير المبيعات و المشتريات

و لم أجد أي خطأ أو إختلاف بالكود .. فقط العلامة التي أشرت لك بها

المشكلة إذن بأعمدة الداتا جريد لديك أو ما يشبه ذلك كمثال ..

يجب تفعيل خيار

AllowUserToAddRow

للداتاجريد فيو

تحياتي

مفعله ونفس المشكله

هل لايوجد حل

(20-03-20, 04:58 PM)mohamedalqadi كتب : [ -> ]هل لايوجد حل

اخي الكريم المشكلة ليست انه لايوجد حل.
المشكلة (بالنسبة لي اني لم افهم الفكرة من المشروع).

مثلا بالصورة التالية اجد الخطا بالفكرة لكني لا اجزم لاني لست صاحب الفكرة.

فلو تعمل مشروع بسيط للفكرة وترفعه للتعديل عليه بيكون افضل.

(20-03-20, 06:55 PM)سعود كتب : [ -> ]
(20-03-20, 04:58 PM)mohamedalqadi كتب : [ -> ]هل لايوجد حل

اخي الكريم المشكلة ليست انه لايوجد حل.
المشكلة (بالنسبة لي اني لم افهم الفكرة من المشروع).

مثلا بالصورة التالية اجد الخطا بالفكرة لكني لا اجزم لاني لست صاحب الفكرة.

فلو تعمل مشروع بسيط للفكرة وترفعه للتعديل عليه بيكون افضل.

كود :

   '=========== طريقة الادخال عن طريق الباركود ===========

        Dim BAR_ As Integer

        If TXT_BARCODE.Text <> Nothing Then

            Dim DT As New DataTable

            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEM WHERE ITEM_BAR LIKE '" & TXT_BARCODE.Text & "'", sqlconn)

            DA.Fill(DT)

            If DT.Rows.Count > 0 Then

                '======= التحقق من رقم كود الصنف =========

                For I As Integer = 0 To DataGridView1.Rows.Count - 1

                    If DataGridView1.Rows(I).Cells(0).Value = DT.Rows(0).Item("ITEM_CODE") Then

                        DataGridView1.Rows(I).Cells(4).Value = DataGridView1.Rows(I).Cells(4).Value + 1

                        calc()

                        TXT_BARCODE.Clear()

                        Exit Sub

                    End If

                Next

                '======= اضافة سجل للداتا جريد ===========

                Dim dr = DT.NewRow

                DT.Rows.Add(dr)

                DataGridView1.DataSource = DT

                DataGridView1(0, BAR_).Value = DT.Rows(0).Item("ITEM_CODE")

                DataGridView1(1, BAR_).Value = DT.Rows(0).Item("ITEM_NAME")

                DataGridView1(2, BAR_).Value = DT.Rows(0).Item("ITEM_UNIT")

                DataGridView1(3, BAR_).Value = DT.Rows(0).Item("ITEM_TKLFA")

                DataGridView1(4, BAR_).Value = 1

                calc()

            End If

        End If

        TXT_BARCODE.Clear()

        calc()

قد حليت مشكله الرساله بوضع هذا الكود وظهرت الاشياء التي اريدها ان تظهر ولكن هناك مشكله هي اضافه بعض الاعمده التي لا اريدها

إقتباس : '=========== طريقة الادخال عن طريق الباركود ===========

إذا انت بحاجة اجابة من خبير بماذكرت لاني اجيبك من خلال معرفتي بالحفظ بقاعدة البيانات بغض النظر عن اي اجهزة خارجية.
فاعتذر.
ننتظر جميعا

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

لا يمكن أن يتخيل الواحد منا المشكلة و يسيّرها و يحلها ذهنيا

لكن فقط كملاحظة ..

أكيد مصدر البيانات تم تسمية الأعمدة بالداتاجريد نفسها .. و تم جلب البيانات بنفس الوقت بالأكواد

أنت أدرى بأمورك أكثر منا

تحياتي

(20-03-20, 08:11 PM)عبد العزيز البسكري كتب : [ -> ]
أخي تماما ذكره أستاذنا الكريم سعود

لا يمكن أن يتخيل الواحد منا المشكلة و يسيّرها و يحلها ذهنيا

لكن فقط كملاحظة ..

أكيد مصدر البيانات تم تسمية الأعمدة بالداتاجريد نفسها .. و تم جلب البيانات بنفس الوقت بالأكواد

أنت أدرى بأمورك أكثر منا

تحياتي

هل ممكن ارفع المشروع لحل المشكله ؟

(20-03-20, 07:50 PM)mohamedalqadi كتب : [ -> ]

كود :

'=========== طريقة الادخال عن طريق الباركود =========== Dim BAR_ As Integer If TXT_BARCODE.Text <> Nothing Then Dim DT As New DataTable Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEM WHERE ITEM_BAR LIKE '" & TXT_BARCODE.Text & "'", sqlconn) DA.Fill(DT) If DT.Rows.Count > 0 Then '======= التحقق من رقم كود الصنف ========= For I As Integer = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows(I).Cells(0).Value = DT.Rows(0).Item("ITEM_CODE") Then DataGridView1.Rows(I).Cells(4).Value = DataGridView1.Rows(I).Cells(4).Value + 1 calc() TXT_BARCODE.Clear() Exit Sub End If Next '======= اضافة سجل للداتا جريد =========== Dim dr = DT.NewRow DT.Rows.Add(dr) DataGridView1.DataSource = DT DataGridView1(0, BAR_).Value = DT.Rows(0).Item("ITEM_CODE") DataGridView1(1, BAR_).Value = DT.Rows(0).Item("ITEM_NAME") DataGridView1(2, BAR_).Value = DT.Rows(0).Item("ITEM_UNIT") DataGridView1(3, BAR_).Value = DT.Rows(0).Item("ITEM_TKLFA") DataGridView1(4, BAR_).Value = 1 calc() End If End If TXT_BARCODE.Clear() calc()

PHP كود :

'=========== طريقة الادخال عن طريق الباركود ==========='
        DataGridView1.DataSource = Nothing
        If TXT_BARCODE.Text <> Nothing Then
            Dim DT As New DataTable
            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEM WHERE ITEM_BAR LIKE '" & TXT_BARCODE.Text & "'", sqlconn)
            If DA.Fill(DT) > 0 Then
                Dim rowindex As Integer = -1
                '======= التحقق من رقم كود الصنف ========='
                For Each dgvr As DataGridViewRow In DataGridView1.Rows
                    If dgvr.Cells(0).Value = DT(0).Item("ITEM_CODE") Then
                        rowindex = dgvr.Index
                        Exit For
                    End If
                Next
                If rowindex <> -1 Then
                    DataGridView1(4, rowindex).Value += 1
                Else
                    '======= اضافة سجل للداتا جريد ==========='
                    Dim dr As DataRow = DT.Rows(0)
                    DataGridView1.Rows.Add(dr.Item("ITEM_CODE"), dr.Item("ITEM_NAME"), dr.Item("ITEM_UNIT"), dr.Item("ITEM_TKLFA"), 1)
                End If
                TXT_BARCODE.Clear()
                calc()
            Else
                MsgBox("Barcode not found:  " & TXT_BARCODE.Text, MsgBoxStyle.Critical)
                TXT_BARCODE.SelectAll()
            End If
        End If
        TXT_BARCODE.Focus() 

الصفحات : 1 2