public class XTableDef

Public Class XTableDef

Imports System
Imports Biolomics.BioCallback
Imports Biolomics.SharedClasses
Imports Biolomics.Utility.DatabaseConstants
Imports Biolomics.BaseLibrary

Public Class Program

    <STAThread()>
    Shared Sub Main()
        Dim c As New Program
        c.Test()
    End Sub

    '    Write sub functions here
    Public Sub Test()
        '    get the current connection
        Dim SqlCo As XConnection = Run.GetCurrentConnection()
        If SqlCo Is Nothing Then
            Return
        End If

        '    get the current layout
        Dim Layout As XDataLayout = Run.GetCurrentLayout()
        If Layout Is Nothing Then  '    no current layout in a search page
            Return
        End If

        '    scan table names from the current connection and get all tables with name (in the database) starting with "taxons_"
        Dim TaxonTableDeflist As New XTableDefMap
        For Each TableDef As XTableDef In SqlCo.TableDefMap
            If TableDef.UserName.Length >= 7 AndAlso TableDef.UserName.ToLower.Substring(0, 7) = "Searching_String" Then
                TaxonTableDeflist.Add(TableDef)
            End If
        Next
        Console.Write("There is " & TaxonTableDeflist.Count.ToString & " table in this list")
    End Sub

End Class