منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] رسائل الاخطاء
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] رسائل الاخطاء
abdou غير متصل
عضو مبدع
المشاركات : 51
المواضيع 4
الإنتساب : Apr 2018
السمعة : 2
الشكر: 25
تم شكره 62 مرات في 31 مشاركات
#11
06-10-20, 09:21 PM
برنامج اقدر من خلاله ادخل علي جهازك
https://www.teamviewer.com
البحث
الرد }}}
تم الشكر بواسطة:
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)اسامه الهرماوي كتب : وعليكم السلام...
ممكن تعرض الكود هنا عشان نحل المشكلة, واضح انه بيتعامل مع الداتا جريد.

تم عرض كود الحدث الذي يظهر رسالة الخطا
البحث
الرد }}}
تم الشكر بواسطة:
hatan غير متصل
عضو جديد
المشاركات : 20
المواضيع 0
الإنتساب : Oct 2020
السمعة : 2
الشكر: 3
تم شكره 16 مرات في 11 مشاركات
#13
06-10-20, 09:45 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 = 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 غير متصل
عضو مبدع
المشاركات : 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


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

شكرا اخي على مجهودك، ولكن نفس المشكل
البحث
الرد }}}
تم الشكر بواسطة:
hatan غير متصل
عضو جديد
المشاركات : 20
المواضيع 0
الإنتساب : Oct 2020
السمعة : 2
الشكر: 3
تم شكره 16 مرات في 11 مشاركات
#15
06-10-20, 10:09 PM
(06-10-20, 10:04 PM)tahaayyoub كتب : شكرا اخي على مجهودك، ولكن نفس المشكل


لم توضح ماذا حصل معك

ولن تحصل على إجابة مفيدك إذا كنت ستجيب بهذه الطريقة بدون تفاصيل لما قمت به

وأخشى في النهاية أنك تعرض الكود الخطأ وأن المشكلة في كود آخر


وأشجعك على قبول عرض الخدمة المجاني (غالبا) والمقدم من أخونا abdou عن طريق برنامج التيم فيور
(06-10-20, 09:21 PM)abdou كتب : برنامج اقدر من خلاله ادخل علي جهازك
https://www.teamviewer.com


أنتظر ردك ................................................
البحث
الرد }}}
تم الشكر بواسطة:
tahaayyoub غير متصل
عضو مبدع
المشاركات : 94
المواضيع 57
الإنتساب : Dec 2019
السمعة : 0
الشكر: 30
تم شكره 74 مرات في 48 مشاركات
#16
06-10-20, 10:15 PM
(06-10-20, 10:09 PM)hatan كتب :
(06-10-20, 10:04 PM)tahaayyoub كتب : شكرا اخي على مجهودك، ولكن نفس المشكل


لم توضح ماذا حصل معك

ولن تحصل على إجابة مفيدك إذا كنت ستجيب بهذه الطريقة بدون تفاصيل لما قمت به

وأخشى في النهاية أنك تعرض الكود الخطأ وأن المشكلة في كود آخر


وأشجعك على قبول عرض الخدمة المجاني (غالبا) والمقدم من أخونا abdou عن طريق برنامج التيم فيور
(06-10-20, 09:21 PM)abdou كتب : برنامج اقدر من خلاله ادخل علي جهازك
https://www.teamviewer.com


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

المشكلة انو نفس رسالة الخطا تظهر دون ان اعرف سطر الخطا او رقمه والرسالة لاتوضح تفاصيل الخطا سوى رسالة "غير صالح التحويل من السلسة الى النوع Double"
البحث
الرد }}}
تم الشكر بواسطة:
hatan غير متصل
عضو جديد
المشاركات : 20
المواضيع 0
الإنتساب : Oct 2020
السمعة : 2
الشكر: 3
تم شكره 16 مرات في 11 مشاركات
#17
06-10-20, 10:18 PM (آخر تعديل لهذه المشاركة : 06-10-20, 10:23 PM {2} بواسطة hatan.)
أتركك تتواصل مع أخونا abdou عن طريق برنامج التيم فيور
لأنه ساروني شك بأنك تعرض كود مختلف وأن المشكلة في كود آخر
البحث
الرد }}}
تم الشكر بواسطة: abdou


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

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


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