[0theghost0]

السلام عليكم

في هذا المشروع اريد تعلم حاجتين وهما

في الداتا قريد فيو أثناء الكتابة أو اختيار المطلوب رفعه على الداتا قريد فيو يضاف في الاماكن المخصصة لها

عندكم في المشروع :
equpment
price
quantati
date

أثناء اضافتهم في الداتا قريد فيو ماذا يحصل :
price  هذا سعر الحبة الواحدة
quantati الكمية
اذا تم اختيار حبتين في الداتاقريد فيو يضع حبتين ويقوم بكتابة سعرها الكلي للحبتين في خانة في الداتاقريد فيو اسمها unite ويكتب السعر الاجمالي للحبتين
------------------------------------------------
اما بخصوص quatati
يتم خفض لكل غرض تم استئجارة

هذا حاليا وتالي سوف اتعرف بعد الترجيع كيف يمكن استخدام الود نفسه بعد الترجيع في فورمة اخرى مع بعض التوضيحات سوف يتم شرحها لكم وشكرا

[محمد كريّم]

أين المشكلة مع الداتا قريد؟
كل ما في الأمر هو عملية ضرب الكمية في السعر لاخراج الاجمالي
تحتاج للتعامل مع حدث تغيير نص الخلية فقط وتفحص اذا كان رقم الخلية يشير الى انها خلية الكمية فقم بالعملية الحسابية

[0theghost0]

ممكن التعديل على المشروع الصغير التي تم ارفاقه وشرح مالذي عملته اخي ؟؟

وشكرا لك

[0theghost0]

هل من الممكن شباب التعديل عليه ليتطابق بما اريده ؟؟

[0theghost0]

اريد دمج الكود هذا لو سمحتم :

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

           conn.Open()
           For Each row As DataGridViewRow In DataGridView1.Rows
               If row.Cells(0).Value Is Nothing Then Exit For
               Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] - @Equ_Qantity WHERE Equ_ID=@Equ_ID", conn)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", TextBox8.Text)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
                   cmd.ExecuteNonQuery()
               End Using
           Next
           conn.Close()
       End Using

مع هذا :

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()
           For Each row As DataGridViewRow In DataGridView1.Rows
               If row.Cells(0).Value Is Nothing Then Exit For
               Dim sql As String =
                   "INSERT INTO [Rent]" &
                   "( Cus_ID, Cus_Name, Cus_Private_Number, Cus_Address, Cus_Car, Cus_Telephone_Number, Cus_Balance, Equ_Name, Equ_Price, Equ_Qantity, Rent_Date )" &
                   "VALUES" &
                   "( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Cus_Address, @Cus_Car, @Cus_Telephone_Number, @Cus_Balance, @Equ_Name, @Equ_Price, @Equ_Qantity, @Rent_Date )"
               Using cmd As New OleDbCommand(sql, conn)
                   cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Car", TextBox4.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Balance", TextBox6.Text.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Price", row.Cells(1).Value.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
                   cmd.Parameters.AddWithValue("@Rent_Date", DateTimePicker1.Value.ToString)
                   cmd.ExecuteNonQuery()
               End Using
           Next
           conn.Close()
       End Using
       MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

اتمنى انكم ماتبخلون عليي بمعرفتكم في البرمجة