[Ahmed_Mansoor]

أهلا بك أخي الكريم , هذا تعديل كود الزر الموجود في المثال السابق لكي يعرض لك فقط الجداول المنشأه بواسطة المستخدم فقط :

PHP كود :

Private Sub Command1_Click()

Command1.Enabled = False

Dim I As Integer
  
ListView1.ListItems.Clear

'عرض جميع الجداول بجميع أنواعها
For I = 0 To Cat.Tables.Count - 1
    If LCase$(Trim$(Cat.Tables(I).Type)) = "table" Then
       ListView1.ListItems.Add , , Cat.Tables(I).Name
       ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = Cat.Tables(I).Type
    End If
Next I

Command1.Enabled = True

End Sub