[mohamedalqadi]

(20-03-20, 03:57 AM)عبد العزيز البسكري كتب :

أخي الكريم ..

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

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

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

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

AllowUserToAddRow

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

تحياتي

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

[mohamedalqadi]

هل لايوجد حل

[سعود]

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

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

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



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

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

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

[سعود]

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

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

[عبد العزيز البسكري]

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

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

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

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

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

تحياتي

[mohamedalqadi]

(20-03-20, 08:11 PM)عبد العزيز البسكري كتب :

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

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

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

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

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

تحياتي

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

[351028]

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