تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى التعديل
#1
هذه الرسالة تظهر عند الضغط على زر التعديل فقط وباقى الاورار تعمل بشكل جيد
فمن اين الخطأ لو تكرمتم


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
مبدأياً ،، تأكد من الكونكشن سترينق :

اعمل له نيو :

conn = new ...... etc

أو قم بفتح الاتصال :

conn.open
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
#3
شكرا اخى الكريم حريف برمجة....الكود المستخدم فى التعديل هو نفس الكود تماما المستخدم فى الحفظ
لكن الرسالة لا تظهر الا فى حالة التعديل فقط
الرد
تم الشكر بواسطة:
#4
ضع كود التعديل ؟ لنرى المشكلة اين بالضبط .
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة:
#5
هذا هو كود التعديل
 Private Sub butedit_Click(sender As System.Object, e As System.EventArgs) Handles butedit.Click
        If combosupplier_name.SelectedIndex = -1 Then
            MessageBox.Show("برجاء اختيار اسم المورد من القائمة", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        If combosupplierinvoice_type.SelectedIndex = -1 Then
            MessageBox.Show("برجاء اختيار نوع فاتورة المورد من القائمة", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        If Format(supplierinvoice_date.Value) > Format(txtstock_date.Value) Then
            MsgBox("تاريخ إذن استلام البضاعة اكبر من تاريخ الفاتورة", MsgBoxStyle.Critical, "خطأ")
            Exit Sub
        End If
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If dgvdata.Rows.Count = 0 Then
            MessageBox.Show("يجب إضافة صنف واحد على الأقل لتتم عملية الحفظ", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If Len(Trim(txttotalpayment.Text)) = 0 Then
            MessageBox.Show("برجاء إدخال قيمة المبلغ المسدد", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txttotalpayment.Focus()
            Exit Sub
        End If
        '**************************************************************************************************
        If Val(txttotalpayment.Text) > Val(txtgrandtotal.Text) Then
            MessageBox.Show("لا يمكن أن يكون المبلغ المسدد أكبر من قيمة الفاتورة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txttotalpayment.Focus()
            Exit Sub
        End If
        '****************************************التاكد من الكميات فى الداتا جريد********************************
        For k = 0 To dgvdata.Rows.Count - 1
            If Val(dgvdata.Rows(k).Cells(5).Value) = 0 Then
                MsgBox("يرجى التاكد من جميع كميات الاصناف المستلمة", MsgBoxStyle.Critical, "تنبيه")
                Exit Sub
            End If
        Next
        '***************************************الغاء الصفوف الفارغة من الداتا جريد*********************************
        For k = 0 To dgvdata.Rows.Count - 1
            If dgvdata.Rows(k).Cells(1).Value = Nothing Then
                dgvdata.Rows.Remove(dgvdata.Rows(k))
            End If
        Next
        '*************************************اثبات الكمية فى جدول الكميات**************************
        Try
            For Each row As DataGridViewRow In dgvdata.Rows
                If Not row.IsNewRow Then
                    conn = New SqlClient.SqlConnection(ss)
                    conn.Open()
                    Dim ct As String = "select item_code from tblItemsTemp_stock where item_code=@d1"
                    Dim cmd2 As New SqlClient.SqlCommand(ct)
                    cmd2.Connection = conn
                    cmd2.Parameters.AddWithValue("@d1", row.Cells(0).Value.ToString())
                    rdr = cmd2.ExecuteReader()
                    If (rdr.Read()) Then
                        conn = New SqlClient.SqlConnection(ss)
                        conn.Open()
                        Dim cb2 As String = "Update tblItemsTemp_stock set quantity = quantity + " & row.Cells(5).Value & " where item_code=@d1"
                        cmd2 = New SqlClient.SqlCommand(cb2)
                        cmd2.Connection = conn
                        cmd2.Parameters.AddWithValue("@d1", row.Cells(0).Value.ToString())
                        cmd2.ExecuteReader()
                        conn.Close()
                    Else
                        conn = New SqlClient.SqlConnection(ss)
                        conn.Open()
                        Dim cb3 As String = "insert into tblItemsTemp_stock(item_code,item_name,quantity) VALUES (@d1,@d2,@d3)"
                        cmd2 = New SqlClient.SqlCommand(cb3)
                        cmd2.Connection = conn
                        cmd2.Parameters.AddWithValue("@d1", row.Cells(0).Value.ToString())
                        cmd2.Parameters.AddWithValue("@d2", row.Cells(1).Value)
                        cmd2.Parameters.AddWithValue("@d3", row.Cells(5).Value)
                        cmd2.ExecuteReader()
                        conn.Close()
                    End If
                End If
            Next
            '''''''''''''''''''''''''''''حفظ راس الفاتورة''''''''''''''''''''''''''''''''''''
            adp = New SqlClient.SqlDataAdapter("select * from tblstock  where stock_code = N'" & txtstock_code.Text & "'", conn)
            ds = New DataSet
            adp.Fill(ds)
            dt = New DataTable
            dt = ds.Tables(0)
            If dt.Rows.Count = 0 Then
                MsgBox("لم يتم العثور على البيان المطلوب", MsgBoxStyle.Exclamation, "تنبيه")
            Else
                Dim dr1 = dt.Rows(0)
                dr1!stock_code = txtstock_code.Text
                dr1!stock_date = txtstock_date.Value.Date
                dr1!supplier_code = txtsupplier_code.Text
                dr1!supplier_name = combosupplier_name.Text
                dr1!supplierinvoice_type = combosupplierinvoice_type.Text
                dr1!supplierinvoice_no = txtsupplierinvoice_no.Text
                dr1!supplierinvoice_date = supplierinvoice_date.Value.Date
                dr1!notes = txtnotes.Text
                dr1!grandtotal = txtgrandtotal.Text
                dr1!payment = txttotalpayment.Text
                dr1!paymentdue = txtpaymentdue.Text
                dr1!status = True
                 cmd = New SqlClient.SqlCommandBuilder(adp)
                adp.Update(dt)
            End If
            adp.Dispose()
            ds.Dispose()
            dt.Dispose()
            '''''''''''''''''''''''''''''''''''''''''''' حذف تفاصيل السند السابقة'''''''''''''''''''''''''
            Dim cmdd As New SqlClient.SqlCommand
            cmdd.Connection = conn
            cmdd.CommandText = "delete tblstock_details where stock_code = N'" & txtstock_code.Text & "'"
            cmdd.ExecuteNonQuery()
            '    '=======================================حفظ تفاصيل الفاتورة=============================================           
            adp = New SqlClient.SqlDataAdapter("select * from tblstock_details ", conn)
            ds = New DataSet
            adp.Fill(ds)
            dt = New DataTable
            dt = ds.Tables(0)
            For i = 0 To dgvdata.Rows.Count - 1
                Dim Dr2 = dt.NewRow
                Dr2!stock_code = txtstock_code.Text
                Dr2!item_code = dgvdata.Rows(i).Cells(0).Value
                Dr2!item_name = dgvdata.Rows(i).Cells(1).Value
                Dr2!item_unit = dgvdata.Rows(i).Cells(2).Value
                Dr2!category = dgvdata.Rows(i).Cells(3).Value
                Dr2!unitprice = dgvdata.Rows(i).Cells(4).Value
                Dr2!quantity = dgvdata.Rows(i).Cells(5).Value
                Dr2!amount = dgvdata.Rows(i).Cells(6).Value
                Dr2!discountper = dgvdata.Rows(i).Cells(7).Value
                Dr2!discount = dgvdata.Rows(i).Cells(8).Value
                Dr2!totalamount = dgvdata.Rows(i).Cells(9).Value
                dt.Rows.Add(Dr2)
                 cmd = New SqlClient.SqlCommandBuilder(adp)
                adp.Update(dt)
            Next
            '    '********************************************اضافة السجل الى جدول اذن الدفع*********************
            adp = New SqlClient.SqlDataAdapter("select * from tblPaymentvouchers", conn)
            ds = New DataSet
            adp.Fill(ds)
            dt = New DataTable
            dt = ds.Tables(0)
            Dim dr = dt.Rows(0)
            dr!voucher_code = txtstock_code.Text
            dr!voucher_date = txtstock_date.Text
            dr!amount = Val(txttotalpayment.Text)
            dr!supplier_name = combosupplier_name.Text
            Dim str As String = ""
            If Val(txttotalpayment.Text) > 0 Then
                txttotalpaymentarabic.Text = NumToTxtArabic(txttotalpayment.Text)
            Else
                txttotalpaymentarabic.Text = ""
            End If
            str = txttotalpaymentarabic.Text
            dr!amount_byarabic = str
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim str1 As String = ""
            If combosupplierinvoice_type.SelectedIndex = 0 Then
                str1 = "سداد الفاتورة النقدية رقم" & txtsupplierinvoice_no.Text
            End If
            If combosupplierinvoice_type.SelectedIndex = 1 Then
                str1 = "سداد دفعة من الفاتورة الآجلة رقم" & txtsupplierinvoice_no.Text
            End If
            dr!statement = str1
             Dim cmd1 As New SqlClient.SqlCommandBuilder(adp)
            adp.Update(dt)
            adp.Dispose()
            ds.Dispose()
            dt.Dispose()
            '    '********************************************اضافة السجل الى جدول حركات الموردين*******************
            
             adp = New SqlClient.SqlDataAdapter("select * from tblSuppliertrans", conn)
            ds = New DataSet
            adp.Fill(ds)
            dt = New DataTable
            dt = ds.Tables(0)
            Dim dr3 = dt.Rows(0)
            dr3!supplier_name = combosupplier_name.Text
            dr3!supplier_code = txtsupplier_code.Text
            dr3!voucher_date = txtstock_date.Value.Date
            dr3!voucher_code = txtstock_code.Text
            dr3!debit = Val(txttotalpayment.Text)
            dr3!credit = Val(txtgrandtotal.Text)
            Dim str2 As String = ""
            If combosupplierinvoice_type.SelectedIndex = 0 Then
                str2 = "إذن استلام أصناف للفاتورة النقدية رقم" & txtsupplierinvoice_no.Text
            End If
            If combosupplierinvoice_type.SelectedIndex = 1 Then
                str2 = "إذن استلام أصناف للفاتورة الآجلة رقم" & txtsupplierinvoice_no.Text
            End If
            dr3!discription = str2
            dr3!voucher_type = "إذن استلام أصناف"            
            Dim cmd3 As New SqlClient.SqlCommandBuilder(adp)
            adp.Update(dt)
            adp.Dispose()
            ds.Dispose()
            dt.Dispose()
            butnew_Click(Nothing, Nothing)
            MsgBox("تمت عملية التعديل بنجاح")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
الرد
تم الشكر بواسطة:
#6
عطل Try

لترى المشكلة وين ؟
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة: salah mansour , salah mansour
#7
   
حذفت try لكن ظهرت هذه الرسالة
(13-10-18, 11:22 AM)حريف برمجة كتب : عطل Try

لترى المشكلة وين ؟
الرد
تم الشكر بواسطة:
#8
كود :
dataconnection()
       cmd.Connection = cnn
       cmd.CommandText = "UPDATE [info] SET [name] = '" & TextBox12.Text & "',[dateuser] = '" & TextBox15.Text & "',[datauser] = '" & TextBox14.Text & "', [department] = '" & ComboBox2.Text & "', [dgree] = '" & ComboBox3.Text & "', [pagn] = '" & TextBox10.Text & "', [typepag] = '" & TextBox9.Text & "', [typegan] = '" & ComboBox4.Text & "', [ngan] = '" & TextBox8.Text & "', [unti] = '" & TextBox7.Text & "' WHERE ID = " & Val(TextBox13.Text)
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear2()
       MessageBox.Show("تم التعديل بنجاح", "تعديل ", MessageBoxButtons.OK, MessageBoxIcon.Information)
       loaddata()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة حول كود الاتصال dasktop 4 91 أمس, 11:37 PM
آخر رد: dasktop
  [كود] مشكلة داخل كود دخول التلقائى Mohamed Magdy 0 25 أمس, 10:01 PM
آخر رد: Mohamed Magdy
  أريد حل سريع في مشكلة كتابة كود لإدخال التاريخ في جملة Insert abo.alaa315 1 35 أمس, 08:29 PM
آخر رد: عبد العزيز البسكري
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 12 424 أمس, 06:22 PM
آخر رد: ahmedmansour
  مشكلة عند رفع قاعدة البينات فى الفيجول بيسك Mohamed Magdy 2 72 19-10-18, 10:38 AM
آخر رد: Mohamed Magdy
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 65 18-10-18, 01:09 PM
آخر رد: nabil.1710
  مشكلة داخل البوتن Mohamed Magdy 5 78 17-10-18, 10:04 PM
آخر رد: XBOOBX
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 5 110 14-10-18, 08:17 AM
آخر رد: ScreamVoice
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 1 58 14-10-18, 08:16 AM
آخر رد: ScreamVoice
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 67 13-10-18, 03:53 PM
آخر رد: mervandzz

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم