أخفاء حقول فال DataGrid

السلام عليكم

للأسف حتى أنا بحثت عن الموضوع الاصلي ولم أجده!!!

الطريقة الاولى أن نقوم بإخفاء العامود من العنصر DataSet بهذا الشكل

Me.DsMain1.Tables(0).Columns(0).ColumnMapping = MappingType.Hidden

الطريقة الثانية أن نقوم بإنشاء Table Style ونضم به الاعمدة التي نود عرضها فقط ثم نضمه في الـ DataGrid بهذا الشكل.

 Sub BindExitAllowedGrid()


        DGridExitAllowed.CaptionText = "تصاريح الخــروج"

        ' You must clear out the TableStyles collection before 
        DGridExitAllowed.TableStyles.Clear()

        Dim grdTableStyle1 As New DataGridTableStyle
        With grdTableStyle1
            .MappingName = DsMain1.ExitAllowed.TableName
        End With

        Dim grdColStyle1 As New DataGridTextBoxColumn
        With grdColStyle1
            .MappingName = "DateOfExit"
            .HeaderText = "تاريخ التصريح"
            .Width = 80
            .Format = "d"
            .NullText = ""
        End With

        Dim grdColStyle2 As New DataGridTextBoxColumn
        With grdColStyle2
            .MappingName = "TimeOfExit"
            .HeaderText = "ساعة الخروج"
            .Width = 80
            .Format = "t"
            .NullText = ""
        End With

        Dim grdColStyle3 As New DataGridTextBoxColumn
        With grdColStyle3
            .MappingName = "TimeOfReturn"
            .HeaderText = "ساعة العودة"
            .Width = 75
            .Format = "t"
            .NullText = ""
        End With

        Dim grdColStyle4 As New DataGridTextBoxColumn
        With grdColStyle4
            .MappingName = "DelayTime"
            .HeaderText = "ساعات التأخير"
            .Width = 88
            .Format = "t"
            .NullText = ""
        End With


        Dim grdColStyle5 As New DataGridTextBoxColumn
        With grdColStyle5
            .MappingName = "AllowedBy"
            .HeaderText = "مُصرح مِن قِبل"
            .Width = 133
            .NullText = ""

        End With
        ' Add the column style objects to the table style's collection of 
        ' column styles. Without this the styles do not take effect.        
        grdTableStyle1.GridColumnStyles.AddRange _
            (New DataGridColumnStyle() {grdColStyle1, grdColStyle2, _
                grdColStyle3, grdColStyle4, grdColStyle5})
        DGridExitAllowed.TableStyles.Add(grdTableStyle1)

    End Sub

ثم عند تحميل النموذج ننادي الاجراء BindExitAllowedGrid

ونأسف للغلق الموضوع ,

هذا والله أعلم.