[سعود]

المثال بعد التعديل وذلك باضافة عمود hide  من نوع (نعم/لا) للجدول

PHP كود :

Public Class Form1
    Dim da As OleDb.OleDbDataAdapter
    Dim dt As DataTable
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & CurDir() & "\db.accdb"
        Using con As New OleDb.OleDbConnection(str)
            da = New OleDb.OleDbDataAdapter("select * from tb", con)
            dt = New DataTable
            da.Fill(dt)
            d.DataSource = dt
            Dim i As Integer
            d.Columns(0).Visible = False

            Dim dc As Integer = d.Columns.Count - 1
            d.Columns(dc).Visible = False

            d.Columns(1).Width = 95
            d.Columns(2).Width = 70
            d.Columns(3).Width = 70

            For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
                d.Rows(i).Visible = Not dt.Rows(i).Item(dc)
            Next
        End Using
    End Sub
End Class 


ركز في الكود:

PHP كود :

For i = 0 To d.Rows.Count - IIf(d.AllowUserToAddRows, 2, 1)
                d.Rows(i).Visible = Not dt.Rows(i).Item(dc)
            Next 


dc متغير يحمل رقم الاندكس الخاص بعمود الاخفاء لكي يخفيه ومن خلاله نعرف قيمة كل صف اذا كانت القيمة المخزنة نعم تكون قيمة الصف في القريد عكس ذلك باستخدام المعامل Not  لان القصد اخفاء