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

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