[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
على فرض أن لديك جدول فيه ستة حقول أو أكثر ،، مثلا  (الرقم ، الاسم كامل، الاسم الاول، الاسم2، الاسم3،..، الاسم الاخير)
وأن الحقل الاول يحتوي على الاسم الثنائي، الثلاثي ، الرباعي ....  السباعي اللي هو ..
سيكون الكود هو :

كود :

' هذا الجزء لتحديد عدد اسطر الجدول هل هو +1 أو عادي
' و جعله لا يقبل الاضافة مؤقتاً
' وقد وضعته تلافياً للأخطاء
Dim da As Boolean = False
If DataGridView1.AllowUserToAddRows = True Then
   da = DataGridView1.AllowUserToAddRows
   DataGridView1.AllowUserToAddRows = False
End If

' هذا كود التقسيم والتوزيع
For i = 0 To DataGridView1.Rows.Count - 1
   Dim strS As String = DataGridView1(1, i).Value
   Dim M() As String = strS.Split(" ")
   For j = 0 To M.Length - 1
       DataGridView1(2 + j, i).Value = M(j)
   Next
Next

' كود إعادة وضع الجدول لما كان عليه
DataGridView1.AllowUserToAddRows = da