[العيدروس]

السلام عليكم و رحمة الله و بركاته
اخواني لو تكرمتم بالمساعدة حول هده المشكلة بارك الله فيكم
لدي فورم Frm_Add و هو يعمل بشكل جيد و ساعدني فيه الأخ Zuhare بارك الله فيه و رزقه من حيث لا يحتسب بهدا الموضوع
http://vb4arb.com/vb/showthread.php?tid=50754
المشكلة إخواني بالفورم يلي اسمه Frm_Edite
نقلت نفس أكواد الفورم Frm_Add إلى الفورم Frm_Edite لكن واجهتني مشكلة لم اجد لها الحل 
لما أجلب البيانات للتعديل عليها و أعمل بنفس أكواد الفورم Frm_Add لكن تحدث لخبطة بالعمليات 
عندما اقوم بتشغيل هدي الأكواد تصبح العمليات غير مضبوطة
https://j.top4top.io/p_3266gh81e1.png
ارجو المساعدة بارك الله فيكم

[princelovelorn]

وعليكم السلام ورحة الله وبركاته

أعتقد ان المشكلة معك لانك لم تقم بتعبئة الكومبوبوكس في حدث لودد الفورم

كود :

   Private Sub Frm_Edite_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Populate_Category()
       Show_data()
 END SUB

[العيدروس]

شكرا جزيلا أخي الكريم princelovelorn
بارك الله فيك صحيح الآن تشتغل تمام ربنا يجازيك كل خير يا رب
بقي مشكلة لو ممكن بعد اذنك و هي الداتاجريدفيو كل ما افتح الفورم Frm_Edite أجد سطور فارغة قد تنضاف تلقائيا ما عرفت و ين الخلل في الاكواد

[العيدروس]

للرفع اخواني الاكارم

[princelovelorn]

الشكر لله والفضل لله

أضف هذا الكود في بداية الأجراء (Show_data())

كود :

  DataGridView1.Rows.Clear()

ليصبح هكذا

كود :

 Sub Show_data()
       DataGridView1.Rows.Clear()

       DT.Clear()
       Dim Adp As New OleDbDataAdapter("SELECT Id , SerialCode , ComboBox1 , PriceUnite , SumChecked , SubTotal , Charges , Discount , FullTotal , StateChecked1 , StateChecked2 , StateChecked3 from Table1 Where SerialCode = '" & HOME.TextCode.Text & "'", Conne)
       Adp.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("عفواً  ..  لم يتم العثور على طلبية تحت هذا الرقم", " تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
           Exit Sub
       Else
           TextId.Text = Convert.ToInt32(DT.Rows(0).Item("Id"))
           TextCode.Text = Convert.ToString(DT.Rows(0).Item("SerialCode"))
           ComboBox1.Text = Convert.ToString(DT.Rows(0).Item("ComboBox1"))
           TextPriceUnite.Text = Convert.ToDecimal(DT.Rows(0).Item("PriceUnite"))
           TextSumChecked.Text = Convert.ToInt32(DT.Rows(0).Item("SumChecked").ToString)
           TextSubTotal.Text = Convert.ToDecimal(DT.Rows(0).Item("SubTotal").ToString)
           TextCharges.Text = Convert.ToDecimal(DT.Rows(0).Item("Charges").ToString)
           TextDiscount.Text = Convert.ToDecimal(DT.Rows(0).Item("Discount").ToString)
           TextFullTotal.Text = Convert.ToDecimal(DT.Rows(0).Item("FullTotal").ToString)
           CheckBox1.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked1").ToString)
           CheckBox2.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked2").ToString)
           CheckBox3.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked3").ToString)

           '========== تفاصيل الفاتورة ===========



           Dim DA = New OleDbDataAdapter("select ProductID , ProductBarcode , ProductName , ProductPrice from Table2 where SerialCode = '" & HOME.TextCode.Text & "'", Conne)
           Dim DS As New DataSet
           DS = New DataSet
           DA.Fill(DS)
           DT = DS.Tables(0)
           For I = 0 To DT.Rows.Count - 1

               DataGridView1.Rows.Add()
               DataGridView1.Rows(I).Cells("ProductID").Value = DT.Rows(I).Item("ProductID")
               DataGridView1.Rows(I).Cells("ProductBarcode").Value = DT.Rows(I).Item("ProductBarcode")
               DataGridView1.Rows(I).Cells("ProductName").Value = DT.Rows(I).Item("ProductName")
               DataGridView1.Rows(I).Cells("ProductPrice").Value = DT.Rows(I).Item("ProductPrice")
           Next
     

           Dim SUMDATAGRIDVIEW As Decimal = 0.0
           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               SUMDATAGRIDVIEW = SUMDATAGRIDVIEW + DataGridView1.Rows(i).Cells("ProductPrice").Value
           Next
           TextSumDatagrid.Text = SUMDATAGRIDVIEW

       End If



   End Sub

[العيدروس]

بارك الله فيك اخي princelovelorn و جزاك كل خير ان شاء الله