Public Class Form1
 
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As DataTable
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        dt1.Columns.Add("ID")
        dt1.Columns.Add("Wert")
        dt1.PrimaryKey = New DataColumn() {dt1.Columns("ID")}
        Dim columnsdt1(1) As DataColumn
        columnsdt1(0) = dt1.Columns("ID")
        dt1.PrimaryKey = columnsdt1
        dt1.Namespace = "DT1"
 
        dt1.Rows.Add(1, 10)
        dt1.Rows.Add(2, 20)
        dt1.Rows.Add(3, 30)
        dt1.Rows.Add(4, 40)
        dt1.Rows.Add(5, 50)
        dt1.Rows.Add(6, 60)
        dt1.Rows.Add(7, 70)
        dt1.Rows.Add(8, 80)
        dt1.Rows.Add(9, 90)
        dt1.Rows.Add(10, 100)
 
        dt2.Columns.Add("ID")
        dt2.Columns.Add("Wert")
        dt2.PrimaryKey = New DataColumn() {dt2.Columns("ID")}
        Dim columnsdt2(1) As DataColumn
        columnsdt2(0) = dt2.Columns("ID")
        dt2.PrimaryKey = columnsdt2
        dt2.Namespace = "DT2"
 
        dt2.Rows.Add(1, 10)
        dt2.Rows.Add(2, 25)
        dt2.Rows.Add(3, 30)
        dt2.Rows.Add(4, 43)
        dt2.Rows.Add(5, 58)
        dt2.Rows.Add(6, 60)
        dt2.Rows.Add(7, 77)
        dt2.Rows.Add(8, 80)
        dt2.Rows.Add(9, 91)
        dt2.Rows.Add(10, 100)
 
        dgv1.DataSource = dt1
        dgv2.DataSource = dt2
 
        dt3 = dt2.Copy
        Dim dv As New DataView(dt3)
 
        Dim filter As String = ""
 
        For Each r As DataRow In dt1.Rows
            filter = filter & "'" & r(1).ToString & "'"
        Next
 
        filter = filter.Replace("''", "', '")
 
        dv.RowFilter = "Wert IN (" & filter & ")"
 
        dgv3.DataSource = dv
 
    End Sub
End Class

EALA FREYA FRESENA