دخول

**raedre22** · 09-07-24, 02:05 AM

السلام عليكم لدي فاتورة مبيعات وعند ادخال منتج عن طريق الباركود يظيف المنتج الى الداتا
عند اضافة منتج ثاني الى الباركود لا يتم اضافة المنتج الى داتا كرد فيو

Sub LoadCart()
    Try
        Dim i As Integer = 0
        Dim total As Double = 0
        DataGridView1.Rows.Clear()
        cn.Open()
        cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
        dr = cm.ExecuteReader
        With dr.Read
            i += 1
            DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
            total += CDbl(dr.Item("CartTotal").ToString)
        End With
        dr.Close()
        cn.Close()
        lblDisplayTotal.Text = Format(total, "#,##0")
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
----------------------------------------
Sub AddTOCart()
    Try
        If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
        Dim CartDate As String = Now.ToString("yyyy/MM/dd")
        cn.Open()
        cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
        With FormSales
            cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
            cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
            cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
            cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
            cm.Parameters.AddWithValue("CartDate", CartDate)
            cm.Parameters.AddWithValue("CartUser", StrUser)
            cm.ExecuteNonQuery()
            cn.Close()
            cn.Open()
            cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
            cm.ExecuteNonQuery()
            cn.Close()
            .txtSearch.Focus()
            .txtSearch.SelectionStart = 0
            .txtSearch.SelectionLength = .txtSearch.Text.Length
            .LoadCart()
        End With
        Me.Dispose()
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
-------------------------------------
حدث الاضافة

Private Sub txtQuantity_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtQuantity.KeyPress
     Select Case Asc(e.KeyChar)
         Case 13
             AddTOCart()
         Case 48 To 57
         Case 8
         Case Else
             e.Handled = True
     End Select
End Sub

**تركي الحلواني** · 10-07-24, 06:32 PM

(09-07-24, 02:05 AM)raedre22 كتب : السلام عليكم لدي فاتورة مبيعات وعند ادخال منتج عن طريق الباركود يظيف المنتج الى الداتا
عند اضافة منتج ثاني الى الباركود لا يتم اضافة المنتج الى داتا كرد فيو

Sub LoadCart()
    Try
        Dim i As Integer = 0
        Dim total As Double = 0
        DataGridView1.Rows.Clear()
        cn.Open()
        cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
        dr = cm.ExecuteReader
        With dr.Read
            i += 1
            DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
            total += CDbl(dr.Item("CartTotal").ToString)
        End With
        dr.Close()
        cn.Close()
        lblDisplayTotal.Text = Format(total, "#,##0")
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
----------------------------------------
Sub AddTOCart()
    Try
        If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
        Dim CartDate As String = Now.ToString("yyyy/MM/dd")
        cn.Open()
        cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
        With FormSales
            cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
            cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
            cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
            cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
            cm.Parameters.AddWithValue("CartDate", CartDate)
            cm.Parameters.AddWithValue("CartUser", StrUser)
            cm.ExecuteNonQuery()
            cn.Close()
            cn.Open()
            cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
            cm.ExecuteNonQuery()
            cn.Close()
            .txtSearch.Focus()
            .txtSearch.SelectionStart = 0
            .txtSearch.SelectionLength = .txtSearch.Text.Length
            .LoadCart()
        End With
        Me.Dispose()
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
-------------------------------------
حدث الاضافة

Private Sub txtQuantity_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtQuantity.KeyPress
     Select Case Asc(e.KeyChar)
         Case 13
             AddTOCart()
         Case 48 To 57
         Case 8
         Case Else
             e.Handled = True
     End Select
End Sub

جرب هذا التعديل

PHP كود :

Sub LoadCart()
    Try
        Dim i As Integer = 0
        Dim total As Double = 0
        DataGridView1.Rows.Clear()
        cn.Open()
        cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
        dr = cm.ExecuteReader
        While dr.Read()
            i += 1
            DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
            total += CDbl(dr.Item("CartTotal").ToString)
        End While
        dr.Close()
        cn.Close()
        lblDisplayTotal.Text = Format(total, "#,##0")
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub 

**raedre22**

(10-07-24, 06:32 PM)تركي الحلواني كتب :
(09-07-24, 02:05 AM)raedre22 كتب : السلام عليكم لدي فاتورة مبيعات وعند ادخال منتج عن طريق الباركود يظيف المنتج الى الداتا
عند اضافة منتج ثاني الى الباركود لا يتم اضافة المنتج الى داتا كرد فيو

Sub LoadCart()
    Try
        Dim i As Integer = 0
        Dim total As Double = 0
        DataGridView1.Rows.Clear()
        cn.Open()
        cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
        dr = cm.ExecuteReader
        With dr.Read
            i += 1
            DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
            total += CDbl(dr.Item("CartTotal").ToString)
        End With
        dr.Close()
        cn.Close()
        lblDisplayTotal.Text = Format(total, "#,##0")
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
----------------------------------------
Sub AddTOCart()
    Try
        If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
        Dim CartDate As String = Now.ToString("yyyy/MM/dd")
        cn.Open()
        cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
        With FormSales
            cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
            cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
            cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
            cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
            cm.Parameters.AddWithValue("CartDate", CartDate)
            cm.Parameters.AddWithValue("CartUser", StrUser)
            cm.ExecuteNonQuery()
            cn.Close()
            cn.Open()
            cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
            cm.ExecuteNonQuery()
            cn.Close()
            .txtSearch.Focus()
            .txtSearch.SelectionStart = 0
            .txtSearch.SelectionLength = .txtSearch.Text.Length
            .LoadCart()
        End With
        Me.Dispose()
    Catch ex As Exception
        cn.Close()
        MsgBox(ex.Message, vbCritical)
    End Try
End Sub
-------------------------------------
حدث الاضافة

Private Sub txtQuantity_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtQuantity.KeyPress
     Select Case Asc(e.KeyChar)
         Case 13
             AddTOCart()
         Case 48 To 57
         Case 8
         Case Else
             e.Handled = True
     End Select
End Sub

جرب هذا التعديل

PHP كود :

Sub LoadCart()     Try         Dim i As Integer = 0         Dim total As Double = 0         DataGridView1.Rows.Clear()         cn.Open()         cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)         dr = cm.ExecuteReader         While dr.Read()             i += 1             DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)             total += CDbl(dr.Item("CartTotal").ToString)         End While         dr.Close()         cn.Close()         lblDisplayTotal.Text = Format(total, "#,##0")     Catch ex As Exception         cn.Close()         MsgBox(ex.Message, vbCritical)     End Try End Sub

احسنت ووفقك الله لكل خير ان امكن توضيح التعديل وما هي المشكلة

**تركي الحلواني** · 11-07-24, 10:13 AM

التعديل الرئيسي هنا هو استخدام While dr.Read() بدلاً من With dr.Read للتأكد من قراءة جميع الصفوف الموجودة في القارئ.

**raedre22** · 11-07-24, 06:32 PM

(11-07-24, 10:13 AM)تركي الحلواني كتب : التعديل الرئيسي هنا هو استخدام While dr.Read() بدلاً من With dr.Read للتأكد من قراءة جميع الصفوف الموجودة في القارئ.

احسنت التوضيح
شكرا جزيلا

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] احتاج مساعدة في كتابة كود	sloom00	2	953	21-08-25, 09:09 AM آخر رد: sloom00
	مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك	ahmedfa71	13	2,212	09-07-25, 11:24 PM آخر رد: أبو خالد الشكري
	[VB.NET] حقل الزامي ضمن داتا كريت فيو	EMADW	1	411	20-05-25, 01:12 PM آخر رد: princelovelorn
	[VB.NET] داتا كريت فيو	EMADW	13	1,141	15-05-25, 10:48 PM آخر رد: Taha Okla
	[VB.NET] جمع عمود داتا كريت فيو مع تجاهل الخلايا الفارغة	EMADW	4	479	29-04-25, 10:57 PM آخر رد: Taha Okla
	[VB.NET] ترقيم داتا كريت فيو	EMADW	1	341	21-04-25, 11:52 PM آخر رد: Taha Okla
	[VB.NET] استدعاء داتا كريت فيو من فورم اخر	EMADW	1	417	16-04-25, 06:10 PM آخر رد: مصمم هاوي
	[VB.NET] بطئ جلب البيانات في داتا جرد فيو	h2551996	4	476	06-01-25, 06:45 PM آخر رد: h2551996
	احتاج مساعدة في اظهار الصورة على PictureBox	sloom00	2	387	31-12-24, 11:29 PM آخر رد: sloom00
	[VB.NET] احتاج مساعدة في طابعة فواتير حرارية	zazasami	3	380	15-08-24, 05:48 PM آخر رد: PABLO