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

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

数据表为育龄妇女，生成表为孕检名单，想从育龄妇女表中提取数据：条件为子女数＝0和子女数＝1的，再加上女方婚姻状况为再婚或者男方婚姻状况为再婚的对象，把符合的提取过来并显示出来，请老师帮忙下，谢谢

Dim village As WinForm.ComboBox = e.Form.Controls("单位名称")
village.Combolist = DataTables("总人口").GetCombolistString("单位名称")

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
Next

这个怎么不查询？帮忙改下