23-09-16, 02:36 AM
[attachment=11763]
لدي كود للحذف
ما معنى الرسالة التي بالصورة
لدي كود للحذف
ما معنى الرسالة التي بالصورة
كود :
Public Sub delete_day2(ByVal PARENT_GUID As String)
Dim con As New CLS_CON
con.EXECUTE_TXT("delete from DAY2 where PAENT_GUID='" & PARENT_GUID & "'")
End SubPHP كود :
Private Sub تعديلToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلToolStripMenuItem.Click
Try
If TXT_GUID.Text = Nothing Then
MessageBox.Show("لايوجد سند قيد ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'===============================================================================
If TXT_D.Text = "0" Then
MessageBox.Show("المدين =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'===============================================================================
If TXT_C.Text = "0" Then
MessageBox.Show("الدائن =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'===============================================================================
If TXT_DEF.Text <> "0" Then
MessageBox.Show("القيد غير متوازن", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
update_day1()
CLS_DAY_.delete_day2(TXT_GUID.Text)
add_day2()
MessageBox.Show("تمت عملية التعديل بنجاح", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
