24-10-19, 07:09 PM
(24-10-19, 06:41 PM)AbdoDabak كتب : [ -> ]كيف يعني مسج بوكس
امسح اخر اربع اسطر من دون اخر سطر مارح يطلع مسج بوكس
ما هي اداة رقم 1 تيكست ام ليست
ممكن مثال بسيط اخي
24-10-19, 07:09 PM
24-10-19, 07:15 PM
ممكن تعطيني مثال مثل اللي تريده اساويلك الاكواد
24-10-19, 07:31 PM
(24-10-19, 07:15 PM)AbdoDabak كتب : [ -> ]ممكن تعطيني مثال مثل اللي تريده اساويلك الاكواد
للأسف انا ليس معي مثال مشابه لكن بكل بساطه
انا موضح لك في الصوره هنا ان لدي تكست بوكس وليست بوكس وداتا جريد فيو اكتب قيم في التكست بوكس تتحول الي الليست بوكس ويظهر البيانات المرتبطه بالقيم في الداتا جريد
انا او عند اضافه قيم في التكست بوكس وتحولها الي الليست بوكس لا يوجد لها بيانات او لا تنطبق مع اول عمود يظهر علي الليبل الاسفل عددهم مثلا في هذه الصوره من المفترض يظهر رقم 5 لان عدد القيم التي لم تحمل بيانات في الداتا جريد هما 5
24-10-19, 07:39 PM
المشكلة عندك بس في الرقم 5
24-10-19, 07:56 PM
(24-10-19, 07:39 PM)AbdoDabak كتب : [ -> ]المشكلة عندك بس في الرقم 5
بالظبط هو احتساب عدد الايديهات اللتي توجد في الليست بوكس ولا توجد في عمود اي دي في الداتا جريد مع عرضها في ليبل
24-10-19, 08:03 PM
طيب عطيني الكود اللي تستخدمه لعرض ال ايدي من التيكست الى الليست
عفوا من التيكست الى الداتا
عفوا من التيكست الى الداتا
24-10-19, 08:11 PM
(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()
Else24-10-19, 08:46 PM
اخي هيك قصدك
24-10-19, 09:26 PM
(24-10-19, 08:46 PM)AbdoDabak كتب : [ -> ]اخي هيك قصدك
بالظبط اخي الشيئ الوحيد بقي اذا ضفت ثلاث سطور في الليست بوكس ليس لهم بيانات يظهر عدد السطور علي الليبل الاحمر (السطور الذي ليس لها بيانات فقط )
24-10-19, 09:28 PM
هيك قصدك اخي
اخي هاد البرنامج جربو
اخي هاد البرنامج جربو