منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
عندي داتا جرد فيو
ولما بعمل اي عملية خطأ بتظهر الرسالة دي
اي الكود اللي يخلي لما يظهر خطأ يحدده في الجرد فيو
وكمان ميحصلش مشاكل في البيانات
لأن لما بتظهر الرسالة دي بتكرر البيانات عند الطباعة
وبترجع تبدأ من جديد تاني





السطر 3 و 4 مكرر هنا بسبب اي رسالة خطأ

وعليكم السلام
نصيحة : اترك عنك اللهجة المحلية التي تتكلم بها .
واكتب سؤالك باللغة العربية الفصحى حتى يفهمك كل الأعضاء بمختلف جنسياتهم !

المعذرة اخوي
لدي داتا جرد فيو
عندما تظهر رسالة الخطأ هذه بسبب فاصلة (،) في سعر المنتج
أو أي مشكلة تظهر عند إدخال البيانات
عند تعديل الخطأ والطباعة
تظهر المنتجات بشكل متكرر في الجدول
أريد كود عند ظهور أي مشكلة يتوقف مثل Exit Sub
ويحدد له سبب المشكلة

أعتقد أنت تريد مصبدة الأخطاء  ! 

إذا كان الجواب نعم ، فهذه هي مصيدة الأخطاء :

بالفعل ظهرت رسالة ان هناك مشكلة بهذا المكان وقامت بتحديدة
لكنها لا تمنع ظهور الخطأ في التقرير
اقوم بتصليح الخطأ ( لكن عند الضغط على زر الحفظ )
تظهر نفس المشكلة بتكرار الصفوف في الجدول

---

Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
If Val(TxtPaid.Text) > Val(LblTotal.Text) Then
MessageBox.Show("عفوا قيمة المدفوع لا يمكن ان يكون اكبر من قيمة الفاتورة", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If TxtCustomerName.Text = vbNullString Or TxtPhone.Text = vbNullString Or LblTax.Text = vbNullString Or TxtDiscount.Text = vbNullString Then
MessageBox.Show("عفواً ، قم بتعبئة كل الحقول ( الضريبة او الخصم او اسم العميل او رقم العميل", "تنبيه ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Exit Sub
End If
Dim Field1 As String = ""
Field1 = convertTohex("01", _CompanyName)
Dim Field2 As String = ""
Field2 = convertTohex("02", _vat_No)
Dim Field3 As String = ""
Dim myDate As String = DateTime.Now.ToString("yyyy-MM-ddTHH:mm:00Z")
Field3 = convertTohex("03", myDate)
Dim Field4 As String = ""
Field4 = convertTohex("04", LblTotal.Text)
Dim Field5 As String = ""
Field5 = convertTohex("05", LblTax.Text)
Dim All_Field As String = Field1 & Field2 & Field3 & Field4 & Field5
txtHexToBase64.Text = HexToBase64(All_Field)
Dim _Result = Base64ToHex_Quick(txtHexToBase64.Text)
Get_QrCode_quick()
'***************************************************
Insert_Sale()
LogFunc(Str_User, "تم اضافة فاتورة مبيعات رقم " & TxtOrder_ID.Text)
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
If MessageBox.Show("هل تريد طباعة السند قبل الخروج؟", "الطباعة", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
ClearSale()
Else
If My.Settings.SalePrint = "A4" Then
PrintInvoice()
ElseIf My.Settings.SalePrint = "8Cm" Then
PrintInvoice_8CM()
End If
ClearSale()
End If
End Sub