سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي

سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي (/showthread.php?tid=31825)

الصفحات: 1 2 3

سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 22-10-19

لدي فورم بها داتا جريد فيو وتكست بوكس واستخدم هذا الكود المخزن بالقيم والبيانات من أجل عند اضافه رقم 1 في التكست بوكس
والضغط علي زر تظهر البيانات المرتبطه برقم 1 في الداتا جريد فيو كما هو موضح في الكود ونفس العمليه عند اضافه رقم 2
اود ان افعل عند اضافه رقم
1
و رقم
2
بهذه الشكل في التكست بوكس يظهر البياانات المرتبطه للرقمين في الداتا جريد فيو فكيف افعل ذلك

كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1

            If Val(TextBox1.Text) = 1 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‎‏"

            ElseIf Val(TextBox1.Text) = 2 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 = " ‏الأقصر‏"

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - AbdoDabak - 22-10-19

تفضل اخي اتمنى يكون المطلوب

بس انا ما فهمت انت ليه ما بدك تحط قاعدة بيانات

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1
        If Val(TextBox1.Text) = 1 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.Clear()
            TextBox1.Select()
        ElseIf Val(TextBox1.Text) = 2 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.Clear()
            TextBox1.Select()
        ElseIf TextBox1.Text = 1 & vbCrLf & 2 Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 1
            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 = 2
            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.Clear()
            TextBox1.Select()
        End If 

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 23-10-19

(22-10-19, 07:41 PM)AbdoDabak كتب :
تفضل اخي اتمنى يكون المطلوب

بس انا ما فهمت انت ليه ما بدك تحط قاعدة بيانات

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If Val(TextBox1.Text) = 1 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.Clear() TextBox1.Select() ElseIf Val(TextBox1.Text) = 2 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.Clear() TextBox1.Select() ElseIf TextBox1.Text = 1 & vbCrLf & 2 Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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 = 2 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.Clear() TextBox1.Select() End If

شكرا اخي هذا هو المطلوب شكرا لك ولكن عندي استفسار اخر كيف اجعل البرنامج عند اضافه رقم مثلا
1
2
3
4
في التكست بوكس كده هيطلع البيانات المرتبطه برقم 1 و 2 في الداتا جريد فيو
وطبعا 3 و 4 ليس لهم بيانات اود عند اضافه رقم ليس لديه بيانات يظهر مجموع الارقام الذي ليس لها بيانات في الكود في ليبل مثلا 3 و 4 ليس لهم بيانات فيظهر رقم 2مجموع الحقلين وانت كانت الارقارم
1
2
3
4
5
و البيانات المتاحه لرقمين 1 و 2 فيظهر العدد 3 كيف يتم ذلك

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 23-10-19

(23-10-19, 01:02 AM)اليوم السابع كتب :
(22-10-19, 07:41 PM)AbdoDabak كتب :
تفضل اخي اتمنى يكون المطلوب

بس انا ما فهمت انت ليه ما بدك تحط قاعدة بيانات

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If Val(TextBox1.Text) = 1 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.Clear() TextBox1.Select() ElseIf Val(TextBox1.Text) = 2 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.Clear() TextBox1.Select() ElseIf TextBox1.Text = 1 & vbCrLf & 2 Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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 = 2 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.Clear() TextBox1.Select() End If

شكرا اخي هذا هو المطلوب شكرا لك ولكن عندي استفسار اخر كيف اجعل البرنامج عند اضافه رقم مثلا
1
2
3
4
في التكست بوكس كده هيطلع البيانات المرتبطه برقم 1 و 2 في الداتا جريد فيو
وطبعا 3 و 4 ليس لهم بيانات اود عند اضافه رقم ليس لديه بيانات يظهر مجموع الارقام الذي ليس لها بيانات في الكود في ليبل مثلا 3 و 4 ليس لهم بيانات فيظهر رقم 2مجموع الحقلين وانت كانت الارقارم
1
2
3
4
5
و البيانات المتاحه لرقمين 1 و 2 فيظهر العدد 3 كيف يتم ذلك

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 24-10-19

(23-10-19, 03:22 AM)اليوم السابع كتب :
(23-10-19, 01:02 AM)اليوم السابع كتب :
(22-10-19, 07:41 PM)AbdoDabak كتب :
تفضل اخي اتمنى يكون المطلوب

بس انا ما فهمت انت ليه ما بدك تحط قاعدة بيانات

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If Val(TextBox1.Text) = 1 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.Clear() TextBox1.Select() ElseIf Val(TextBox1.Text) = 2 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.Clear() TextBox1.Select() ElseIf TextBox1.Text = 1 & vbCrLf & 2 Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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 = 2 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.Clear() TextBox1.Select() End If

شكرا اخي هذا هو المطلوب شكرا لك ولكن عندي استفسار اخر كيف اجعل البرنامج عند اضافه رقم مثلا
1
2
3
4
في التكست بوكس كده هيطلع البيانات المرتبطه برقم 1 و 2 في الداتا جريد فيو
وطبعا 3 و 4 ليس لهم بيانات اود عند اضافه رقم ليس لديه بيانات يظهر مجموع الارقام الذي ليس لها بيانات في الكود في ليبل مثلا 3 و 4 ليس لهم بيانات فيظهر رقم 2مجموع الحقلين وانت كانت الارقارم
1
2
3
4
5
و البيانات المتاحه لرقمين 1 و 2 فيظهر العدد 3 كيف يتم ذلك

.

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - AbdoDabak - 24-10-19

تفضل اخي

انا انصحك باستخدام قاعدة بيانات ليسهل عليك الامر

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1
        If TextBox1.Text.Contains(1 & vbCrLf & 2) Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 1
            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 = 2
            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 = " ‏الأقصر‏"
            Label1.Text = TextBox1.Lines.Count - 2
            TextBox1.Clear()
            TextBox1.Select()
        ElseIf TextBox1.Text.Contains(2) Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 2
            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 = " ‏الأقصر‏"
            Label1.Text = TextBox1.Lines.Count - 1
            TextBox1.Clear()
            TextBox1.Select()
        ElseIf TextBox1.Text.Contains(1) Then
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 1
            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‎‏"
            Label1.Text = TextBox1.Lines.Count - 1
            TextBox1.Clear()
            TextBox1.Select()
        Else
            Label1.Text = TextBox1.Lines.Count
        End If 

اخي يجب وضع 1و2 بهذا الشكل ليطلع بياناتهم

ما يكون في بيناتهن اي رقم

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 24-10-19

(24-10-19, 10:58 AM)AbdoDabak كتب :
تفضل اخي

انا انصحك باستخدام قاعدة بيانات ليسهل عليك الامر

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If TextBox1.Text.Contains(1 & vbCrLf & 2) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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 = 2 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 = " ‏الأقصر‏" Label1.Text = TextBox1.Lines.Count - 2 TextBox1.Clear() TextBox1.Select() ElseIf TextBox1.Text.Contains(2) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 2 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 = " ‏الأقصر‏" Label1.Text = TextBox1.Lines.Count - 1 TextBox1.Clear() TextBox1.Select() ElseIf TextBox1.Text.Contains(1) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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‎‏" Label1.Text = TextBox1.Lines.Count - 1 TextBox1.Clear() TextBox1.Select() Else Label1.Text = TextBox1.Lines.Count End If

اخي يجب وضع 1و2 بهذا الشكل ليطلع بياناتهم

1

2

ما يكون في بيناتهن اي رقم

5

4

8

0

7

1

2

3

5

7

شكرا اخي ولكن هذا الكود يظهر مجموع محتوي التكست بوكس بما فيهم الي متاح بيانتهم كما هو موضح
السهم المشار برقم 1 = رقم ليس له بيانات علي الداتا جريد فيو
السهم المشار برقم 2 = مجموع محتوي التكست بوكس انا اود ان يكون يحتوي علي عدد الارقام التي ليس لها بيانات يعني من المفترض يظهر رقم 1
السهم المشار برقم 3 = هو مجموع عدد محتوي التكست بوكس
السهم المشار برقم 4 = هو مجموع عدد الصفوف في الداتا جريد فيو

(24-10-19, 05:32 PM)اليوم السابع كتب :
(24-10-19, 10:58 AM)AbdoDabak كتب :
تفضل اخي

انا انصحك باستخدام قاعدة بيانات ليسهل عليك الامر

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If TextBox1.Text.Contains(1 & vbCrLf & 2) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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 = 2 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 = " ‏الأقصر‏" Label1.Text = TextBox1.Lines.Count - 2 TextBox1.Clear() TextBox1.Select() ElseIf TextBox1.Text.Contains(2) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 2 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 = " ‏الأقصر‏" Label1.Text = TextBox1.Lines.Count - 1 TextBox1.Clear() TextBox1.Select() ElseIf TextBox1.Text.Contains(1) Then DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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‎‏" Label1.Text = TextBox1.Lines.Count - 1 TextBox1.Clear() TextBox1.Select() Else Label1.Text = TextBox1.Lines.Count End If

اخي يجب وضع 1و2 بهذا الشكل ليطلع بياناتهم

1

2

ما يكون في بيناتهن اي رقم

5

4

8

0

7

1

2

3

5

7

شكرا اخي ولكن هذا الكود يظهر مجموع محتوي التكست بوكس بما فيهم الي متاح بيانتهم كما هو موضح
السهم المشار برقم 1 = رقم ليس له بيانات علي الداتا جريد فيو
السهم المشار برقم 2 = مجموع محتوي التكست بوكس انا اود ان يكون يحتوي علي عدد الارقام التي ليس لها بيانات يعني من المفترض يظهر رقم 1
السهم المشار برقم 3 = هو مجموع عدد محتوي التكست بوكس
السهم المشار برقم 4 = هو مجموع عدد الصفوف في الداتا جريد فيو

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - AbdoDabak - 24-10-19

اخي جرب هاد الكود

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1
        If TextBox1.Text.Contains(4 & vbCrLf) Then
            TextBox1.Text = TextBox1.Text.Replace(4 & vbCrLf, "")
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 4
            DataGridView1.Rows(ii).Cells(1).Value = "4"
            DataGridView1.Rows(ii).Cells(2).Value = "+4"
            DataGridView1.Rows(ii).Cells(3).Value = "4@yahoo.com"
            DataGridView1.Rows(ii).Cells(4).Value = "4‏"
            Label1.Text = TextBox1.Lines.Count
            Button1.PerformClick()
        ElseIf TextBox1.Text.Contains(3 & vbCrLf) Then
            TextBox1.Text = TextBox1.Text.Replace(3 & vbCrLf, "")
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 3
            DataGridView1.Rows(ii).Cells(1).Value = "3"
            DataGridView1.Rows(ii).Cells(2).Value = "+3"
            DataGridView1.Rows(ii).Cells(3).Value = "3@yahoo.com"
            DataGridView1.Rows(ii).Cells(4).Value = "3‏"
            Label1.Text = TextBox1.Lines.Count
            Button1.PerformClick()
        ElseIf TextBox1.Text.Contains(2 & vbCrLf) Then
            TextBox1.Text = TextBox1.Text.Replace(2 & vbCrLf, "")
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 2
            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 = " ‏الأقصر‏"
            Label1.Text = TextBox1.Lines.Count
            Button1.PerformClick()
        ElseIf TextBox1.Text.Contains(1 & vbCrLf) Then
            TextBox1.Text = TextBox1.Text.Replace(1 & vbCrLf, "")
            Label1.Text = TextBox1.Lines.Count
            DataGridView1.Rows.Add()
            DataGridView1.Rows(ii).Cells(0).Value = 1
            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‎‏"
            Button1.PerformClick()
        Else
            Label1.Text = TextBox1.Lines.Count
            MsgBox("لا يوجد بيانات للرقم الذي تطلبه")
        End If 

ملاحظة : يجب اضافة سطر عند كتابة اخر رقم

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - اليوم السابع - 24-10-19

(24-10-19, 06:01 PM)AbdoDabak كتب :
اخي جرب هاد الكود

PHP كود :

Dim ii As Integer = DataGridView1.Rows.Count - 1 If TextBox1.Text.Contains(4 & vbCrLf) Then TextBox1.Text = TextBox1.Text.Replace(4 & vbCrLf, "") DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 4 DataGridView1.Rows(ii).Cells(1).Value = "4" DataGridView1.Rows(ii).Cells(2).Value = "+4" DataGridView1.Rows(ii).Cells(3).Value = "4@yahoo.com" DataGridView1.Rows(ii).Cells(4).Value = "4‏" Label1.Text = TextBox1.Lines.Count Button1.PerformClick() ElseIf TextBox1.Text.Contains(3 & vbCrLf) Then TextBox1.Text = TextBox1.Text.Replace(3 & vbCrLf, "") DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 3 DataGridView1.Rows(ii).Cells(1).Value = "3" DataGridView1.Rows(ii).Cells(2).Value = "+3" DataGridView1.Rows(ii).Cells(3).Value = "3@yahoo.com" DataGridView1.Rows(ii).Cells(4).Value = "3‏" Label1.Text = TextBox1.Lines.Count Button1.PerformClick() ElseIf TextBox1.Text.Contains(2 & vbCrLf) Then TextBox1.Text = TextBox1.Text.Replace(2 & vbCrLf, "") DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 2 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 = " ‏الأقصر‏" Label1.Text = TextBox1.Lines.Count Button1.PerformClick() ElseIf TextBox1.Text.Contains(1 & vbCrLf) Then TextBox1.Text = TextBox1.Text.Replace(1 & vbCrLf, "") Label1.Text = TextBox1.Lines.Count DataGridView1.Rows.Add() DataGridView1.Rows(ii).Cells(0).Value = 1 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‎‏" Button1.PerformClick() Else Label1.Text = TextBox1.Lines.Count MsgBox("لا يوجد بيانات للرقم الذي تطلبه") End If

ملاحظة : يجب اضافة سطر عند كتابة اخر رقم

شكرا اخي لي تعبك ولكن ما زالت يظهر مسدج انا اود ان يعمل كما شرحت لك لكن لو علي المسدج بوكس فالامر سهل
ولكن ليس هذا المطلوب

RE: سؤال بعد اذن اخواتي الافاضل ارجو مشاركتي - AbdoDabak - 24-10-19

كيف يعني مسج بوكس

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

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