主题：[求助]根据判断录入A表自动向B表写入对应数据

实现了部分功能了，之前我没完全描述清晰，

需要是：1.表A的当前录入行第一、第二、第三、第四列综合内容和表B的所有行同一行的第一、第二、第三、第四列进行对比判断。（比如：表A录入行（第一列内容  湖南省   ，第二列内容  张家界  ，第三列 内容 旅游景点  ，第四列内容  游园项目1），就从表B里找（判断）有没有同一行内容是（第一列内容  湖南省   ，第二列内容  张家界  ，第三列 内容 旅游景点  ，第四列内容  游园项目1），如果没有4列完全一样内容的（比如表B前3列内容一样，第四列是 游园项目2），就在表B新增一行，将表A当前行对应第一、第二、第三、第四列内容写入到表B新增的行对应列，注：有时候是几列可能都不一样，这种情况下，都要新增写入。）如果表B已经有4列内容一样的行：（第一列内容  湖南省   ，第二列内容  张家界  ，第三列 内容 旅游景点  ，第四列内容  游园项目1），那么就不在表B新增行写入行。 

Select Case e.DataCol.Name

    Case "第一列","第二列","第三列","第四列"

        If e.DataRow.Isnull("第一列")  = False AndAlso e.DataRow.Isnull("第二列")  = False  AndAlso e.DataRow.Isnull("第三列")  = False AndAlso e.DataRow.Isnull("第四列")  = False

            Dim dr As DataRow = DataTables("表B").SQLFind("第一列='" & e.DataRow("第一列")  & "' and 第二列='" & e.DataRow("第二列")  & "' and  第三列='" & e.DataRow("第三列")  & "' And  第四列='" & e.DataRow("第四列"))

            If dr Is Nothing Then

                dr = DataTables("表B").AddNew

                dr("第一列") = e.DataRow("第一列")

                dr("第二列") = e.DataRow("第二列")

                dr("第三列") = e.DataRow("第三列")

                dr("第四列") = e.DataRow("第四列")

                dr.Save

            Else

                e.DataRow("第六列") = dr("第六列")

            End If

        End If

End Select