منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] رسائل الاخطاء
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] رسائل الاخطاء
tahaayyoub غير متصل
عضو مبدع
المشاركات : 94
المواضيع 57
الإنتساب : Dec 2019
السمعة : 0
الشكر: 30
تم شكره 74 مرات في 48 مشاركات
#12
06-10-20, 09:21 PM (آخر تعديل لهذه المشاركة : 06-10-20, 09:28 PM {2} بواسطة tahaayyoub.)
(06-10-20, 04:24 PM)اسامه الهرماوي كتب : وعليكم السلام...
ممكن تعرض الكود هنا عشان نحل المشكلة, واضح انه بيتعامل مع الداتا جريد.

اسف اخي عندي الاف الاسطر
كود :
Public Sub Afficher1(x)
       reset()
       Dim newdata As Boolean = True
       con.Close()
       Connect()
       con.Open()
       Dim da As SqlDataAdapter
       da = New SqlDataAdapter("SELECT proces_verbal.id_pv, proces_verbal.id_tiers, proces_verbal.type_pv, proces_verbal.date_pv, proces_verbal.heure_pv, proces_verbal.nom_destinataire, proces_verbal.mantant, proces_verbal.heure_sup, proces_verbal.kilometre, proces_verbal.tva, proces_verbal.nombre_doc, proces_verbal.travail_sup, proces_verbal.timbre, proces_verbal.lettre, proces_verbal.id_proces_v, proces_verbal.SourceJugement, proces_verbal.dateJugement, proces_verbal.Naffaires, proces_verbal.Nindex, proces_verbal.TypeJugement, proces_verbal.NatureJugement, proces_verbal.Textloi, proces_verbal.textloi1, proces_verbal.Textloi2, proces_verbal.Notifier, proces_verbal.Savoirfaire, proces_verbal.CequiPrecede, proces_verbal.jalsa, proces_verbal.tajil, proces_verbal.section, proces_verbal.heure, proces_verbal.salleN, proces_verbal.heure_fin, proces_verbal.realiser, proces_verbal.etat_notifier, proces_verbal.Attab, tiers.id_aff FROM proces_verbal INNER JOIN tiers ON proces_verbal.id_tiers = tiers.id_tiers  where genre='" & Genre & "' order by proces_verbal.date_pv desc", con)
       dt1.Clear()
       da.Fill(dt1)
       If dt1.Rows.Count = 0 Then
           newdata = False
           Exit Sub
       Else
           'Try
           Me.TextBox55.Text = dt1.Rows(x).Item(0).ToString
               Me.TextBox54.Text = dt1.Rows(x).Item(1).ToString
               Me.ComboBox1.Text = dt1.Rows(x).Item(2).ToString
               ConvertDate = dt1.Rows(x).Item(3).ToString
               Me.DateTimePicker4.Text = dt1.Rows(x).Item(3).ToString
               Me.MaskedTextBox13.Text = dt1.Rows(x).Item(4).ToString
               Me.ComboBox19.Text = dt1.Rows(x).Item(5).ToString
               Me.TextBox24.Text = dt1.Rows(x).Item(6).ToString
               Me.TextBox23.Text = dt1.Rows(x).Item(7).ToString
               Me.TextBox22.Text = dt1.Rows(x).Item(8).ToString
               Me.TextBox21.Text = dt1.Rows(x).Item(9).ToString
               Me.TextBox20.Text = dt1.Rows(x).Item(10).ToString
               Me.TextBox19.Text = dt1.Rows(x).Item(11).ToString
               Me.TextBox18.Text = dt1.Rows(x).Item(12).ToString
               Me.TextBox17.Text = dt1.Rows(x).Item(13).ToString
               Me.TextBox26.Text = dt1.Rows(x).Item(14).ToString
               Select Case ComboBox2.SelectedIndex
                   Case 0  'احكام
                       TextBox1.Text = dt1.Rows(x).Item(15).ToString
                   DateTimePicker5.Text = CDate(dt1.Rows(x).Item(16))
                   TextBox4.Text = dt1.Rows(x).Item(17).ToString
                       TextBox5.Text = dt1.Rows(x).Item(18).ToString
                       ComboBox5.Text = dt1.Rows(x).Item(19).ToString
                       ComboBox3.Text = dt1.Rows(x).Item(20).ToString
                       TextBox2.Text = dt1.Rows(x).Item(21).ToString
                       TextBox3.Text = dt1.Rows(x).Item(22).ToString
                       TextBox6.Text = dt1.Rows(x).Item(23).ToString
                       TextBox7.Text = dt1.Rows(x).Item(24).ToString
                       TextBox8.Text = dt1.Rows(x).Item(25).ToString
                       TextBox9.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       ComboBox4.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 1 'عرائض
                       TextBox12.Text = dt1.Rows(x).Item(15).ToString  'source
                       TextBox109.Text = dt1.Rows(x).Item(16).ToString
                       TextBox11.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       TextBox13.Text = dt1.Rows(x).Item(21).ToString
                       TextBox14.Text = dt1.Rows(x).Item(22).ToString
                       TextBox15.Text = dt1.Rows(x).Item(23).ToString
                       TextBox16.Text = dt1.Rows(x).Item(24).ToString
                       TextBox25.Text = dt1.Rows(x).Item(25).ToString
                       TextBox27.Text = dt1.Rows(x).Item(26).ToString
                       DateTimePicker6.Text = dt1.Rows(x).Item(27).ToString
                       MaskedTextBox2.Text = dt1.Rows(x).Item(28).ToString
                       ComboBox6.Text = dt1.Rows(x).Item(29).ToString
                       MaskedTextBox5.Text = dt1.Rows(x).Item(30).ToString
                       TextBox10.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 2 ' اوامر على عرائض
                       TextBox29.Text = dt1.Rows(x).Item(15).ToString
                       DateTimePicker7.Text = dt1.Rows(x).Item(16).ToString
                       TextBox28.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       TextBox30.Text = dt1.Rows(x).Item(21).ToString
                       TextBox31.Text = dt1.Rows(x).Item(22).ToString
                       TextBox32.Text = dt1.Rows(x).Item(23).ToString
                       TextBox33.Text = dt1.Rows(x).Item(24).ToString
                       TextBox34.Text = dt1.Rows(x).Item(25).ToString
                       TextBox35.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       ComboBox8.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 3 ' مذكرات
                       TextBox140.Text = dt1.Rows(x).Item(15).ToString
                       DateTimePicker9.Text = dt1.Rows(x).Item(16).ToString
                       TextBox108.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       TextBox102.Text = dt1.Rows(x).Item(21).ToString
                       TextBox103.Text = dt1.Rows(x).Item(22).ToString
                       TextBox104.Text = dt1.Rows(x).Item(23).ToString
                       TextBox105.Text = dt1.Rows(x).Item(24).ToString
                       TextBox106.Text = dt1.Rows(x).Item(25).ToString
                       TextBox107.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       ComboBox28.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 4 'اعذار
                       TextBox109.Text = dt1.Rows(x).Item(15).ToString
                       TextBox109.Text = dt1.Rows(x).Item(16).ToString
                       TextBox109.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       RichTextBox5.Text = dt1.Rows(x).Item(21).ToString
                       RichTextBox1.Text = dt1.Rows(x).Item(22).ToString
                       RichTextBox2.Text = dt1.Rows(x).Item(23).ToString
                       RichTextBox3.Text = dt1.Rows(x).Item(24).ToString
                       TextBox109.Text = dt1.Rows(x).Item(25).ToString
                       RichTextBox4.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       TextBox109.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 5
                       TextBox109.Text = dt1.Rows(x).Item(15).ToString
                       TextBox109.Text = dt1.Rows(x).Item(16).ToString
                       TextBox109.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       RichTextBox6.Text = dt1.Rows(x).Item(21).ToString
                       RichTextBox7.Text = dt1.Rows(x).Item(22).ToString
                       RichTextBox8.Text = dt1.Rows(x).Item(23).ToString
                       RichTextBox9.Text = dt1.Rows(x).Item(24).ToString
                       RichTextBox10.Text = dt1.Rows(x).Item(25).ToString
                       RichTextBox11.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       TextBox109.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       MaskedTextBox6.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox109.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
                   Case 6
                       TextBox109.Text = dt1.Rows(x).Item(15).ToString
                       TextBox109.Text = dt1.Rows(x).Item(16).ToString
                       TextBox109.Text = dt1.Rows(x).Item(17).ToString
                       TextBox109.Text = dt1.Rows(x).Item(18).ToString
                       TextBox109.Text = dt1.Rows(x).Item(19).ToString
                       TextBox109.Text = dt1.Rows(x).Item(20).ToString
                       TextBox36.Text = dt1.Rows(x).Item(21).ToString
                       TextBox37.Text = dt1.Rows(x).Item(22).ToString
                       TextBox38.Text = dt1.Rows(x).Item(23).ToString
                       TextBox39.Text = dt1.Rows(x).Item(24).ToString
                       TextBox109.Text = dt1.Rows(x).Item(25).ToString
                       TextBox40.Text = dt1.Rows(x).Item(26).ToString
                       TextBox109.Text = dt1.Rows(x).Item(27).ToString
                       TextBox109.Text = dt1.Rows(x).Item(28).ToString
                       TextBox109.Text = dt1.Rows(x).Item(29).ToString
                       TextBox109.Text = dt1.Rows(x).Item(30).ToString
                       TextBox109.Text = dt1.Rows(x).Item(31).ToString
                       TextBox109.Text = dt1.Rows(x).Item(32).ToString
                       If dt1.Rows(x).Item(33).ToString > 0 Then
                           Me.ChkDelivrer.Checked = True
                       Else ChkDelivrer.Checked = False
                       End If
                       If dt1.Rows(x).Item(34).ToString > 0 Then
                           Me.ChkNotifier.Checked = True
                       Else ChkNotifier.Checked = False
                       End If
                       TextBox41.Text = CDec(dt1.Rows(x).Item(35).ToString)
                       ComboBox21.Text = dt1.Rows(x).Item(36).ToString
               End Select
           'Catch ex As Exception
           '    MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.[Error])
           'End Try
           AfficherTiers(x)
           AfficherTiers1(x)
           TextBox99.Text = CompterRecords1(Genre)
       End If
       con.Close()
       da.Dispose()
   End Sub
(06-10-20, 04:24 PM)اسامه الهرماوي كتب : وعليكم السلام...
ممكن تعرض الكود هنا عشان نحل المشكلة, واضح انه بيتعامل مع الداتا جريد.

تم عرض كود الحدث الذي يظهر رسالة الخطا
البحث
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 01:24 AM
RE: رسائل الاخطاء - بواسطة abdou - 06-10-20, 01:34 AM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 02:01 AM
RE: رسائل الاخطاء - بواسطة abdou - 06-10-20, 06:33 PM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 09:05 PM
RE: رسائل الاخطاء - بواسطة محمد بن عطية - 06-10-20, 02:06 AM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 09:21 PM
RE: رسائل الاخطاء - بواسطة hatan - 06-10-20, 05:30 PM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 09:19 PM
RE: رسائل الاخطاء - بواسطة abdou - 06-10-20, 09:15 PM
RE: رسائل الاخطاء - بواسطة abdou - 06-10-20, 09:21 PM
RE: رسائل الاخطاء - بواسطة hatan - 06-10-20, 09:45 PM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 10:04 PM
RE: رسائل الاخطاء - بواسطة hatan - 06-10-20, 10:09 PM
RE: رسائل الاخطاء - بواسطة tahaayyoub - 06-10-20, 10:15 PM
RE: رسائل الاخطاء - بواسطة hatan - 06-10-20, 10:18 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,021 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  إرسال رسائل واتس اب gamalsherifx 2 656 28-04-24, 06:28 AM
آخر رد: new_programer
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 1 480 03-04-24, 08:08 AM
آخر رد: sdz
  طلب تصحيح كود ارسال رسائل SMS assuhimi 3 1,164 09-07-23, 01:41 PM
آخر رد: Shade0001
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 14 12,971 25-07-22, 07:48 PM
آخر رد: عبد الجليل سراج
  [سؤال] كيفيه ارسال رسائل من تطبيق لاخر علي نفس الجهاز حسن الجلب 2 863 17-07-22, 07:36 PM
آخر رد: حسن الجلب
  ارسال رسائل الى الواتس اب mostafa nada 3 2,105 15-01-22, 07:27 PM
آخر رد: عدنان الشمري
  [نقاش] ارسال رسائل whatsapp من خلال ال vb.net mohamed haroon 5 5,028 21-11-21, 05:46 PM
آخر رد: mona82
  [سؤال] قراءة رسائل GMAIL ADAM12 2 1,243 08-11-21, 07:34 PM
آخر رد: ADAM12
  [VB.NET] رسائل خطأ لم أستطع فهم معناها أبو خالد الشكري 5 1,500 20-10-21, 08:14 PM
آخر رد: أبو خالد الشكري

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


يقوم بقرائة الموضوع: