تعديل على فاتورة مشتريات

لما لا تجعل عمود الاصناف Combo Box

KARIMSOFT كتب:

لما لا تجعل عمود الاصناف Combo Box

اولا اشكرك على الرد

ثانيا : الفكره لوهذه فاتورة مبيعات ويكون الادخال عن طريق الباركود فتحتاج لكود الصنف فقط تم تظهر باقي البيانات في الاعمده التالية

جرب هذا الكود

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
    	If e.ColumnIndex = 1 Then
        	Dim sNoItem As String = DirectCast(DirectCast(sender, System.Windows.Forms.DataGridView).CurrentCell, System.Windows.Forms.DataGridViewCell).Value

        	Dim cmd As OleDbCommand = New OleDbCommand("SELECT [Item-Name] as sItemName FROM TblItems WHERE NoItem=" & sNoItem & ";", con)
        	Try
            	con.Open()
            	DataGridView1.Rows(e.RowIndex()).Cells("sItemName").Value = cmd.ExecuteScalar()
        	Catch ex As Exception
            	MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        	Finally
            	con.Close()
        	End Try
    	End If
	End Sub

وضف هذا السطر بعد تحميل DataGridView1

'كود وصل داتا جريد بقاعدة البيانات

  	DataGridView1.Columns.Add("sItemName", "اسم الصنف")

جزاك الله خيرا

تمام

ولكن اريد عمود الصنف يكون بعد رقم الصنف

وضف هذا السطر بعد تحميل DataGridView1

'كود وصل داتا جريد بقاعدة البيانات

DataGridView1.Columns.Add("sItemName", "اسم الصنف")

DataGridView1.Columns["sItemName"].DisplayIndex = 3;

الاخ /كريم

اتعبتك معي معذره

الكود بعطيني خطا في DisplayIndex انا اعمل على vb2008

جرب هذا

 DataGridView1.Columns.Add("sItemName", "اسم الصنف")
        	DataGridView1.Columns("sItemName").DisplayIndex = 2
        	DataGridView1.Columns("sItemName").ReadOnly = True

لم يكن خطء كبير ولا كان الكود سي شارب وكان الاختلاف في نوع الاقواس

اخي الحبيب اتعبتك معي

حاولت ان افعل كما فعلت واظهر السعر ايضا ولكن فشلت

هذا هو الكود بعد التعديل علية دائما يظهر في عمود السعر وصف الصنف

ارجو ان تشرح السطر الثاني من الكود

مع تحياتي

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If e.ColumnIndex = 1 Then
            Dim sNoItem As String = DirectCast(DirectCast(sender, System.Windows.Forms.DataGridView).CurrentCell, System.Windows.Forms.DataGridViewCell).Value

            Dim cmd As OleDbCommand = New OleDbCommand("SELECT [Item-Name] as sItemName,Price  FROM TblItems WHERE NoItem=" & sNoItem & ";", con)
            Try
                con.Open()
                DataGridView1.Rows(e.RowIndex()).Cells("sItemName").Value = cmd.ExecuteScalar()
                DataGridView1.Rows(e.RowIndex()).Cells("Price").Value = cmd.ExecuteScalar()

            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                con.Close()
            End Try
        End If
    End Sub

جرب هذا الكود

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
    	If e.ColumnIndex = 1 Then
        	Dim sNoItem As String = DirectCast(DirectCast(sender, System.Windows.Forms.DataGridView).CurrentCell, System.Windows.Forms.DataGridViewCell).Value

        	Dim cmd As OleDbCommand = New OleDbCommand("SELECT [Item-Name] as sItemName,Price  FROM TblItems WHERE NoItem=" & sNoItem & ";", con)
        	Try
            	con.Open()
dim        	dr AS oledbDataReader= com.ExecuteReader()
            	dr.Read()

            	DataGridView1.Rows(e.RowIndex()).Cells("sItemName").Value = dr("sItemName")
            	DataGridView1.Rows(e.RowIndex()).Cells("Price").Value = dr("Price')

        	Catch ex As Exception
            	MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        	Finally
        	dr.Close()
            	con.Close()
        	End Try
    	End If
	End Sub

الاخ الكريم

بارك الله في علمك

انا قمت بنجربة الكود ولكن اعطاني بعض الاخطا وقمت باصلاحها فهذا الكود الديد بعد الاصلاح فهل هو صحيح

   Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If e.ColumnIndex = 1 Then
            Dim sNoItem As String = DirectCast(DirectCast(sender, System.Windows.Forms.DataGridView).CurrentCell, System.Windows.Forms.DataGridViewCell).Value

            Dim cmd As OleDbCommand = New OleDbCommand("SELECT [Item-Name] as sItemName,Price  FROM TblItems WHERE NoItem=" & sNoItem & ";", con)
            Try
                con.Open()
                Dim dr As OleDbDataReader = cmd.ExecuteReader()
                dr.Read()

                DataGridView1.Rows(e.RowIndex()).Cells("sItemName").Value = dr("sItemName")
                DataGridView1.Rows(e.RowIndex()).Cells("Price").Value = dr("Price")

                dr.Close()

            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally

                con.Close()
            End Try
        End If
    End Sub

الان كيف يمكن ضب السعر في الكمية لاظهار الاجمالي

يا افاضل المنتدي

نفسي في موضوع مبيعات ومشتريات الي حد ما متكامل

او علي الاقل

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

برجاء تكملة المثال

شكرا

فعلا اخي/ atefkhalf2004

انا بحث كثيرا عن مثال لفاتورة مكتمل في اكث من منتدى ولم اجد

وحتى هذا المثال توقف لعل اخونا KARIMSOFT بخير ويكون المانع خير واقدر اهتمامه بهذه المشاركة ولكن لا احد يعلم الظروف

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

حملتك امانة

يا اخي

برجاء عند استكمال الموضوع او علي الوضع الحالي بعد ادخال تعديلاتك

برجاء ارساله

شكرا

:stop:

فاتورة وارد1.rar

عاجز عن الشكر

السيد الفاضل

كيف ابحث عن فاتوروة ثم اقوم بتعديلها

شكرا مرة اخري

يفضل فتح موضوع جديد

السيد الفاضل

حتي لا يتشعب الموضوع

ونستفيد من السابق

برجاء اسنكمال الموضوع

واذا كنت لك راي اخر اعتبر حضرتك صاحب الموضوع الجديد

ولك كل الشكر

السلام عليكم

لو كانت قاعدة بيانت الاكسس تضم اسماء الموردين او المستوعدعات بحيث عند انشاء سجل جديد لايمكن ادخال اسم مورد او مستودع من خارج قاعدة البيانات ؟؟؟كيف يمكن عمل ذلك

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