[atef_020]

السلام عليكم 
مرفق مثال بمشكلة حفظ الفاتورة 
-المشكلة الاولى وهي ان فى حفظ الفاتورة واذا كانت عدد الاسطر اكثر من 3 اسطر فلا يتم حفظ الفاتور وصور المشكلة فى اول مشاركة 
وومكن حل هذه المشكلات الاخرى
-جمع الصنف فى سطر واحد اذا كان موجود من قبل فى الفاتورة وجمع كميتة فى سطر واحد.بمعنى اذا كان فى الفاتورة موجود هذا الصنف وجاء المشترى بهذا الصنف مرة اخى ليشترية قبل حفظ الفاتور عند كتابة كود هذا الصنف الموجود من قبل المطلوب ان لا يظهر فى سطر جديد وتتغير كميتة فقط 

 -ممكن خانة كمية الصنف فى الداتا جريد فيو تكون بقيمة 1 واذا كانت الكمية اكبر من واحد اضغط على f4 مثلا للذهاب الى خانة الكمية فى الدتا جريد فيو بعد كتابة الكود لتعديل الكمية الى الرقم الجديد غير 1 

- كتابة عدد اسطر الدتا جريد فيو لتظهر فى textbox2 اسفل الشاشة  الدتا جريد فيو

وسامحونى لكثرة طلبتى لاننى مبتدى 
ودا الكود كاملا 

PHP كود :

       If con.State = ConnectionState.Open Then con.Close()
        Dim strInsert As String = " Insert into tb1([Date],[SelMan],[total])values(@Date,@SelMan,@total)"

        cmd = New OleDb.OleDbCommand(strInsert, con)
        cmd.Parameters.Add(New OleDb.OleDbParameter("@Date", OleDb.OleDbType.VarChar)).Value = TextBox1.Text
        cmd.Parameters.Add(New OleDb.OleDbParameter("@SelMan", OleDb.OleDbType.VarChar)).Value = SelMan.Text
        cmd.Parameters.Add(New OleDb.OleDbParameter("@total", OleDb.OleDbType.VarChar)).Value = SelMdataTextBox.Text

        con.Open()

        cmd.ExecuteNonQuery()
        cmd = New OleDb.OleDbCommand("select max(id) from tb1", con)
        Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
        dr.Read()
        'اضافة تفاصيل الفاتورة
        Dim ID_tb1 As Integer = dr(0)
        dr.Close()
        Dim code, quant As Integer

        Dim price, total As Double

        strInsert = "Insert into sell(code,ID_tb1,Name,quant,price,total)values(@code,@ID_tb1,@Name,@quant,@price,@total)"
        cmd = New OleDb.OleDbCommand(strInsert, con)

        For i As Integer = 0 To SellDataGridView.RowCount - 2
            code = SellDataGridView.Rows(i).Cells(0).Value
            Name = SellDataGridView.Rows(i).Cells(1).Value
            quant = SellDataGridView.Rows(i).Cells(2).Value
            price = SellDataGridView.Rows(i).Cells(3).Value
            total = SellDataGridView.Rows(i).Cells(4).Value

            cmd = New OleDbCommand(strInsert, con)

            cmd.Parameters.Add(New OleDb.OleDbParameter("@code", OleDb.OleDbType.Integer)).Value = code
            cmd.Parameters.Add(New OleDb.OleDbParameter("[@ID_tb1]", OleDb.OleDbType.Integer)).Value = ID_tb1
            cmd.Parameters.Add(New OleDb.OleDbParameter("[@Name]", OleDb.OleDbType.VarChar)).Value = Name
            cmd.Parameters.Add(New OleDb.OleDbParameter("[@quant]", OleDb.OleDbType.Integer)).Value = quant
            cmd.Parameters.Add(New OleDb.OleDbParameter("[@price]", OleDb.OleDbType.Currency)).Value = price
            cmd.Parameters.Add(New OleDb.OleDbParameter("[@total]", OleDb.OleDbType.Currency)).Value = total

            cmd.ExecuteNonQuery()
            SellDataGridView.Rows.RemoveAt(SellDataGridView.CurrentRow.Index)
        Next
        add_number()
        con.Close()