المساعدة في كود بحث وفلتر - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.OleDb

Public Class MainForm
    Dim con As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim table As DataTable

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '   Data1.Show()
        DataGridView1.DataSource = final_table()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data3.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Data4.Show()
    End Sub
    Private Function final_table() As DataTable
        table = New DataTable

        Dim t1 As New DataTable
        '====================================================================================================
        'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
        da = New OleDbDataAdapter("Select * from data1", con)
        da.Fill(t1)
        table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي

        t1.Clear()
        '=====================================================================================================
        'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data2.accdb")
        da = New OleDbDataAdapter("Select * from data2", con)
        da.Fill(t1)
        table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي

        t1.Clear()
        '=====================================================================================================
        'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data3.accdb")
        da = New OleDbDataAdapter("Select * from data3", con)
        da.Fill(t1)
        table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي

        t1.Clear()
        '=====================================================================================================
        'قاعدة البيانات الاولى

        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data4.accdb")
        da = New OleDbDataAdapter("Select * from data4", con)
        da.Fill(t1)
        table.Merge(t1)
        t1.Dispose()
        '=====================================================================================================

        Return table
    End Function
 
   

    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = final_table()
    End Sub

    Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click, Button6.Click, Button7.Click, Button8.Click
        Dim rows = table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").Equals(sender.Text))
        If rows.Count = 0 Then
            Me.DataGridView1.DataSource = Nothing
        Else
            Me.DataGridView1.DataSource = rows.CopyToDataTable
        End If
    End Sub

End Class