السلام عليكم ورحمة الله وبركاته
بارك الله في الجميع واسأل الله التوفيق والسداد والرشاد للجميع في الدنيا والآخرة اللهم ءامين.
إخواني لما ءاتي بالبيانات من جدول في قاعدة البيانات ويحتوي على الاسم والرقم (مثلاً)
وكان الاسم الواحد ( الصف ) يحتوي على اسم الشخص كاملاً مثلاُ ( عبد الله محمد عبد الرحمن عبد العزيز ) وأريد إختصار الاسم بشرط معين وهو أن يلغي كل ما هو بعد الفراغ الثالث مثلاً بحيث يكون الأسم ( عبد الله محمد ) فقط ثم أعيد نسخ التعديلات للجدول مره أخرى ( وهو في dataset ) ، كيف يكون هذا.
للرفع ،،، لأني ابحث عن إجابة لمثل هذا السؤال .
ماذاتقصد بالاسم الواحد؟
الصف عدة اعمدة
ام تقصد الاسم الاول والعائلة كلها بعمود واحد؟
اعذرني اخي لم استوعب .. لو ترفع صورة من الجدول حتى اتفهم...
اضف عدد مربعي نص وزر امر
اكتب بمربع النص الاول اربع اسماء بين كل اسم والاخر مسافة واحدة
واترك مربع النص الاخر لنكتب به الاندكس لموقع الاسم في المصفوفة
اكتب الكود التالي في حدث النقر لزر الامر
كود :
Dim p() As String = TextBox1.Text.Split(" ")
Try
Dim t As String = p(Val(TextBox2.Text))
If Array.IndexOf(p, t) > 2 Then
MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
Exit Sub
End If
MsgBox(t)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
اخي سعود حياك الله ،،،
باختصار ما أريده هو مثلاً لدي جدول وفيه عمود واحد يحتوي على الأسم كاملاً
ويحتوي على 3 صفوف وهي :
عبد الله محمد خالد عبد الله
سعود عبد الرحمن محمد إبراهيم
عمر جاسم علي عثمان
الآن جلبت البيانات من قاعدة البيانات ووضعتها في Dataset ، كيف أعدل على الجدول بحيث أجعل الأسماء على النحو التالي :
عبد الله محمد
سعود عبد الرحمن
عمر جاسم علي
بحيث الشرط حذف لي من كل اسم ما بعد الفراغ الثالث ، المقصد من هذه الطريقه هي تقصير اأسماء في بعض التقارير فقط.
(09-03-14, 12:04 AM)سعود كتب : [ -> ]اضف عدد مربعي نص وزر امر
اكتب بمربع النص الاول اربع اسماء بين كل اسم والاخر مسافة واحدة
واترك مربع النص الاخر لنكتب به الاندكس لموقع الاسم في المصفوفة
اكتب الكود التالي في حدث النقر لزر الامر
كود :
Dim p() As String = TextBox1.Text.Split(" ")
Try
Dim t As String = p(Val(TextBox2.Text))
If Array.IndexOf(p, t) > 2 Then
MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
Exit Sub
End If
MsgBox(t)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
بعد إذنك اخي سعود
هذا الكود يعتمد علي رقم فهرس المصفوفة الموجود بــ TextBox2 ولن يعيد غير عنصر واحد
ليس هذا ما يريده
هو يريد الرجوع بقيمة الاسم الثلاثي اي بالفهرس 0 و 1 و 2 معا ليس هذا فحسب بل هو يريده لكل السجلات
اخي الكريم عبد الله سوف اعد لك مثال بسيط لجلب البيانات من الجدول وتعديلها والباقي عليك إنتظرني قليلا
تحياتي للجميع
الفكرة . اني استدعيت البيانات من القاعدة الي DataGridView وتعملت معها برمجيا بإستخدام For
هذه صور للمثال
والمثال بالمرفقات
اتمني ان يكون هذا ما تريده
السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي سعود على جهودك وبيض الله وجهك.
شكراً لك أخي جينيوس لايف على جهدك الواضح وبارك الله فيك وغفر الله لنا ولك ولوالدينا وللمسلمين ، فعلاً هذا ما أردت في المثال 100% وقد حولته للعمل على dataset مباشرة والتعديل عليه ، الحمد لله تم الحل.
شكراً للجميع.