主题：求助 表B接收表A的数据

    For Each dr1 As Data Row In DataTables("表A").Select("[日期] >= #" & dt & "#")

        Dim dr2 As DataRow = DataTables("表B").find("编号='" & dr1("编号") & "'")

if dr2 is nothing then

dr2 = DataTables("表B").AddNew()

end if

        For Each dc As DataCol In DataTables("表A").DataCols

            dr2(dc.Name) = dr1(dc.name)

        Next

    Next