主题：[求助]根据判断录入A表自动向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