[اليوم السابع]

(24-10-19, 06:41 PM)AbdoDabak كتب : كيف يعني مسج بوكس

---

امسح اخر اربع اسطر من دون اخر سطر مارح يطلع مسج بوكس

---

ما هي اداة رقم 1 تيكست ام ليست

ممكن مثال بسيط اخي

[AbdoDabak]

ممكن تعطيني مثال مثل اللي تريده اساويلك الاكواد

[اليوم السابع]

(24-10-19, 07:15 PM)AbdoDabak كتب : ممكن تعطيني مثال مثل اللي تريده اساويلك الاكواد

للأسف انا ليس معي مثال مشابه لكن بكل بساطه 
انا موضح لك في الصوره هنا ان لدي تكست بوكس وليست بوكس وداتا جريد فيو اكتب قيم في التكست بوكس تتحول الي الليست بوكس ويظهر البيانات المرتبطه بالقيم في الداتا جريد 
انا او عند اضافه قيم في التكست بوكس وتحولها الي الليست بوكس لا يوجد لها بيانات او لا تنطبق مع اول عمود يظهر علي الليبل الاسفل عددهم  مثلا في هذه الصوره من المفترض يظهر رقم 5 لان عدد القيم التي لم تحمل بيانات في الداتا جريد هما 5

[AbdoDabak]

المشكلة عندك بس في الرقم 5

[اليوم السابع]

(24-10-19, 07:39 PM)AbdoDabak كتب : المشكلة عندك بس في الرقم 5

بالظبط هو احتساب عدد الايديهات اللتي توجد في الليست بوكس ولا توجد في عمود اي دي في الداتا جريد مع عرضها في ليبل

[AbdoDabak]

طيب عطيني الكود اللي تستخدمه لعرض ال ايدي من التيكست الى الليست

---

عفوا من التيكست الى الداتا

[اليوم السابع]

(24-10-19, 08:03 PM)AbdoDabak كتب : طيب عطيني الكود اللي تستخدمه لعرض ال ايدي من التيكست الى الليست

---

عفوا من التيكست الى الداتا

ده كود لعرض ال ايدي من التيكست الى الليست

كود :

 Dim kk As String = ""
           If TextBox1.Text <> Nothing Then
               Dim ListLine As New List(Of String)(TextBox1.Lines)
               For Each itm As String In ListLine
                   ListBox1.Items.Add(itm)
               Next
           End If

و ده كود عرض الداتا 

كود :

 Dim ii As Integer = DataGridView1.Rows.Count - 1
           If Val(TextBox1.Text) = 100004441516054 Then


               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"
               DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"
               DataGridView1.Rows(ii).Cells(3).Value = "NON"
               DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"
               TextBox1.Select()
           ElseIf Val(TextBox1.Text) = 100008040420441 Then
               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii).Cells(1).Value = "Hossam Ibrahim"
               DataGridView1.Rows(ii).Cells(2).Value = "+201202179000"
               DataGridView1.Rows(ii).Cells(3).Value = "hhxx61@yahoo.com"
               DataGridView1.Rows(ii).Cells(4).Value = " ‏الأقصر‏"
               TextBox1.Select()
           ElseIf TextBox1.Text = 100004441516054 & vbCrLf & 100008040420441 Then


               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"
               DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"
               DataGridView1.Rows(ii).Cells(3).Value = "NON"
               DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"
               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii + 1).Cells(1).Value = "Hossam Ibrahim"
               DataGridView1.Rows(ii + 1).Cells(2).Value = "+201202179000"
               DataGridView1.Rows(ii + 1).Cells(3).Value = "hhxx61@yahoo.com"
               DataGridView1.Rows(ii + 1).Cells(4).Value = " ‏الأقصر‏"
               TextBox1.Select()
           ElseIf TextBox1.Text = 100008040420441 & vbCrLf & 100004441516054 Then


               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii).Cells(1).Value = "AhMed El-Qon"
               DataGridView1.Rows(ii).Cells(2).Value = "+201010759698"
               DataGridView1.Rows(ii).Cells(3).Value = "NON"
               DataGridView1.Rows(ii).Cells(4).Value = "‏‎Sidi Salim, Kafr Ash Shaykh, Egypt‎‏"
               DataGridView1.Rows.Add()
               DataGridView1.Rows(ii + 1).Cells(0).Value = Val(TextBox1.Text)
               DataGridView1.Rows(ii + 1).Cells(1).Value = "Hossam Ibrahim"
               DataGridView1.Rows(ii + 1).Cells(2).Value = "+201202179000"
               DataGridView1.Rows(ii + 1).Cells(3).Value = "hhxx61@yahoo.com"
               DataGridView1.Rows(ii + 1).Cells(4).Value = " ‏الأقصر‏"
               TextBox1.Select()
           
           Else

[AbdoDabak]

اخي هيك قصدك

[اليوم السابع]

(24-10-19, 08:46 PM)AbdoDabak كتب : اخي هيك قصدك

بالظبط اخي الشيئ الوحيد بقي اذا ضفت ثلاث سطور في الليست بوكس ليس لهم بيانات يظهر عدد السطور علي الليبل الاحمر (السطور الذي ليس لها بيانات فقط )

[AbdoDabak]

هيك قصدك اخي

---

اخي هاد البرنامج جربو