[علاء الكبابي]

(13-01-22, 04:53 AM)حسين ادريس كتب : عملت بحث عن الفاتوره وظهر النتائج واريد ان افتح تفاصيل الفاتوره فكيف افعلها

ياريت حد يجاوبنى انا غيرت صيغه السؤال علشان محدش رد عليا

بص يا سيدي ده خلاصة جزء من مشروعي
بس بالنسبة ليا انا عامل الاستعلام عن الفاتورة في فورم مخصوص فيه داتا جريد فيو بتظهر فيها بيانات الفاتورة او رأس الفاتورة يعني رقمها وتاريخها واسم العميل والكاشير .....
وعامل زرار في الفورم ده لما تضغط عليه يفتح تفاصيل الفاتورة بقى (الأصناف وأسعارها وكدة) في فورم تانية هي نفسها الفورم الي بتعمل منها فاتورة جديدة(وده عشان لو في تعديل في الفاتورة سواء بإضافة أصناف او حذف اصناف او تعديل صنف منها) فعشان اعرف اعمل كدة عملت:
 Public dt As New DataTable
وبعدين في برمجة الزرار نفسه بقى الي هيفتح تفاصيل الفاتورة ده عملت:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=data.accdb")

        Dim cmd As New OleDbCommand

        cmd = New OleDbCommand("select cod, iname_o, price_o, qty_o, tot_o, from orders_d where id_o =@ido ", con)

        cmd.Parameters.Add("@ido", OleDbType.Integer).Value = Dgv3.CurrentRow.Cells(0).Value

(dgv3 ده اسم الداتا جريد في فورم البحث)

        con.Open()

        dt.Clear()

        dt.Load(cmd.ExecuteReader)

        Dim dr As OleDbDataReader = cmd.ExecuteReader

        dr.Read()

        If dr.HasRows Then

            Form2.Show()

(ده فورم الفاتورة)

            Form2.CheckBox4.Checked = False

           

                Form2.Text = "تعديل فاتورة"

        

            Form2.dt = Me.dt

          

            Form2.dgv1.DataSource = dt

          

                Form2.dgv1.Columns(0).HeaderText = "كود الصنف"

                Form2.dgv1.Columns(1).HeaderText = "اسم الصنف"

                Form2.dgv1.Columns(2).HeaderText = "السعر"

                Form2.dgv1.Columns(3).HeaderText = "الكمية"

                Form2.dgv1.Columns(4).HeaderText = "الاجمالي"

                Form2.dgv1.Columns(5).HeaderText = "جملة"

                Form2.dgv1.Columns(6).HeaderText = "مستهلك"

         

          

        End If

        Me.Close()

    

End Sub

يا رب اكون قدرت اساعدك