主题：怎么从数据表中提取符合条件的数据到当前表中

Dim t As Table = Tables("孕检名单")

t.DataTable.DataRows.Clear
Dim drs As List(Of DataRow) = DataTables("育龄妇女").Select("单位名称 = '" & village.Text & "' And 子女数 = 0  And  子女数 = 1" )
For Each dr As DataRow In drs
    If DataTables("育龄妇女").Find("单位名称 = '" & dr("单位名称") & "'") Is Nothing Then
        Dim r As Row = t.AddNew
        
        r("单位名称") = dr("单位名称")
        
        Dim filter As String = " 单位名称 = '" & dr("单位名称") & "'"
        
        r("组名称") = dr("组名称")
        r("女方姓名") = dr("女方姓名")
        r("男方姓名") = dr("男方姓名")
    End If
Nex

你这段代码要写到Textchanged事件