(06-01-19, 01:35 AM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

كان من الأفضل وضع المشكلة بذاتها بفورم بسيط للتأكّد أكثر و مع ذلك و إضافة لما قد ينظر به أخي الغالي " أسامة " ..

أخي الكريم " عبد الله " ..

لماذا أكثرت من عبارة Try .. فواحدة قد تكفي .. لم أجرّب .. فقط نظريا .. حاول هكذا لو سمحت

كود :

Private Sub BarButtondelete_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtondelete.ItemClick
       If MessageBox.Show("هل أنت متأكد من مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           Try
  DeleteRowFrom_custdy_movement(Txtcustdy_code)
               DeleteRowFrom_category_movement(TxtID)
Form2_Load(sender, e)
    Tools_ReadOnly(True)
       Tools_Enabled(False)
BarButtonsave.Enabled = False
       BarButtonCancel.Enabled = False
       BarButtonNew.Enabled = True
       BarButtonupdate.Enabled = True
       BarButtondelete.Enabled = True
       BarButtonEdit.Enabled = True
       BarButtonSaveEdit.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         MsgBox("تم حذف السجل.", MsgBoxStyle.Information, "حذف")
Catch ex As Exception
          MsgBox(Err.Description, MsgBoxStyle.Information)
           Finally
           End Try
       End If
   End Sub

تحياتي

(06-01-19, 01:50 PM)elgokr كتب :

يبدو انك تقوم بادخال قيمة نص

فى عمود من نوع رقم

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

لتقوم بتعديل يمة النص الى رقم او ان تعدل على قاعدة البيانات لتجعل العمود من نوع رقم ليصبح نص

تحياتى لك

وتمنياتى لك التوفيق

(06-01-19, 07:36 PM)elgokr كتب :

بعد مراجعة الكود فى ردك الاول بالاعلى

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

فى البداية كود الاول الخاص بـ Sub يجب ان يكون بهذه الطريقة

كود :

   Public Sub DeleteRowFrom_custdy_movement(ByVal Txtcustdy_codeW As Integer)
       Dim CmdDelete As New SqlCommand
       With CmdDelete
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Delete  From custdy_movement   Where custdy_code = " & Txtcustdy_codeW
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       CmdDelete.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم حذف السجل", MsgBoxStyle.Information, "حذف")
       CmdDelete = Nothing
   End Sub

طريقة الاستخدام فى اى حدث لديك فى الفورم

ستستخدم السطر بهذا الشكل مع تغيير اللازم طبقاً للمسميات لديك

كود :

       DeleteRowFrom_custdy_movement(Val(TextBox1.Text))

الان نقاط الشرح التى اريد شرحه والتنبيه عليه

عند صناعة كود Sub أو Function

لا تحتاج ان تضع بداخله كود Try 

ويكفى فقط استخدام Try فى الحدث اى عند تنفيذ الكود

فمثلاً بداخل الزر يكون الشكل على هذا النحو

كود :

       Try
           DeleteRowFrom_custdy_movement(Val(TextBox1.Text))
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

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

بمجرد تطبيق الشرح ستحل مشكلة الرسالة التى تظهر معك

لم اقوم بكتابة الكود كاملاً حتى يتثني لك استوعاب ما اقوم شرحة

ولكي لا تقع به مرة اخري

تذكر التعديل فى كود الـ Sub ليس فى ازالة الـ Try فقط بل فى تغير ايضاً

كود :

  Public Sub DeleteRowFrom_custdy_movement(ByVal Txtcustdy_codeW As TextBox)

الى

كود :

   Public Sub DeleteRowFrom_custdy_movement(ByVal Txtcustdy_codeW As Integer)

لاحظ الفرق بينهم

تحياتى لك

وتمنياتى لك التوفيق