لى ولك وللجميع بامر الله
فالحمد لله على كل حال
بخصوص الرسالة سيتطلب ان تضه هنا الكود داخل الحدث لزر الحذف
حتى اطلع على ما الذى تقوم به من كتابة كود مع هذا السطر
كود :
DeleteRowFrom_custdy_movement(Val(TextBox1.Text))
لتوضح الامر اكثر معى اذا كان الامر من كود تقوم باضافته ام ماذا
وكذلك لاى كيف تقوم باعادة انعاش الدات جريد بعد اتمام الحذف
تحياتى لك
وتمنياتى لك التوفيق
(07-01-19, 05:19 PM)elgokr كتب : [ -> ]لى ولك وللجميع بامر الله
فالحمد لله على كل حال
بخصوص الرسالة سيتطلب ان تضه هنا الكود داخل الحدث لزر الحذف
حتى اطلع على ما الذى تقوم به من كتابة كود مع هذا السطر
كود :
DeleteRowFrom_custdy_movement(Val(TextBox1.Text))
لتوضح الامر اكثر معى اذا كان الامر من كود تقوم باضافته ام ماذا
وكذلك لاى كيف تقوم باعادة انعاش الدات جريد بعد اتمام الحذف
تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم ،،،
هذا الكود الذي تحت زر امر الحذف
كود :
If MessageBox.Show("هل أنت متأكد من مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
Exit Sub
Else
Try
( DeleteRowFrom_custdy_movement(Txtcustdy_code
(Form2_Load(sender, e
Catch ex As Exception
Exit Sub
End Try
واقوم بااعادة تحميل الفورم من خلال
(Form2_Load(sender, e
اما كود الحذف فقد وضعته في موديول واقوم باستدعائة من خلال زر الحذف وهذا هو الكود :
كود :
Public Sub DeleteRowFrom_custdy_movement(ByVal Txtcustdy_codeW As TextBox)
Dim CmdDelete As New SqlCommand
With CmdDelete
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Delete From custdy_movement Where custdy_code = " & Val(Txtcustdy_codeW.Text) & ""
End With
Try
If Con.State = 1 Then Con.Close()
Con.Open()
CmdDelete.ExecuteNonQuery()
Con.Close()
MsgBox("تم حذف السجل", MsgBoxStyle.Information, "حذف")
CmdDelete = Nothing
Catch ex As Exception
Con.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Con.State = ConnectionState.Open Then Con.Close()
End Try
End Sub
واسف على ازعاجكم والله يجزاك خير
لا يوجد اسف اخى الفاضل فلا عليك
سؤالى لك لكي تنتبه لما تقوم به
ما وظيفة هذا السطر ؟؟؟
كود :
Form2_Load(sender, e)
قم بحذ هذا اسطر وسيتم حل المشكلة معك باذن الله
تحياتى لك
وتمنياتى لك التوفيق
(07-01-19, 11:47 PM)elgokr كتب : [ -> ]لا يوجد اسف اخى الفاضل فلا عليك
سؤالى لك لكي تنتبه لما تقوم به
ما وظيفة هذا السطر ؟؟؟
كود :
Form2_Load(sender, e)
قم بحذ هذا اسطر وسيتم حل المشكلة معك باذن الله
تحياتى لك
وتمنياتى لك التوفيق
هذا السطر يقوم باعادة تحميل الفورم ومن ثم تتحدث الداتاجريد بعد الحذف والتعديل والاظافة وانا لاازال في البرنامج مباشرة . وعند حذفه لايتم تحديث الداتا جريد الا بعد اغلاق البرنامج وفتحه من جديد وهذا ما لا اريده . تحياتي
اخي الجوكر عند حذف الكود المذكور لم يحدث تحديث للداتا قريد بعد اظافة او حذف البيانات وحتى تعديلها . تحياتي