[alshandodi]

لكم جزيل الشكر والتقدير اخواني الأعزاء
 لم ينجح الكود ولا اعلم اين الخطاء 
فعندما اضغط على البوتن لا تظهر التي عليها صح وعندما اضغط مره اخرى يظهر هذا الخطا
   
فحاولت باضافة عمود Boolean
واضفت هذا الكود ولكن يظهر لي خطاء 
   

كود :

For i = 0 To dt.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
               Dim t As Boolean = d.Rows(i).Cells("Hideandshow").Value
               If t = True Then
                   d.Rows(i).Visible = False
               Else
                   d.Rows(i).Visible = True
               End If
           Next