منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] رسائل الاخطاء
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] رسائل الاخطاء
tahaayyoub غير متصل
عضو مبدع
المشاركات : 94
المواضيع 57
الإنتساب : Dec 2019
السمعة : 0
الشكر: 30
تم شكره 74 مرات في 48 مشاركات
#14
06-10-20, 10:04 PM
(06-10-20, 09:45 PM)hatan كتب : جرب هذا التعديل
كود :
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 = Val(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 = Val(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 = Val(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 = Val(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 = Val(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 = Val(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 = Val(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


أنتظر ردك ................................................

شكرا اخي على مجهودك، ولكن نفس المشكل
البحث
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
رسائل الاخطاء - بواسطة 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 864 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
آخر رد: أبو خالد الشكري

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم