主题：[求助]再次请教复制行的问题

Select Case e.DataCol.Name

    Case "A","B","C","D"

        If e.DataRow.IsNull("A") = False AndAlso e.DataRow.IsNull("B") = False  AndAlso e.DataRow.IsNull("C") = False  AndAlso e.DataRow.IsNull("D") = False

            Dim f As New Filler

            f.SourceTable = DataTables("表A")

            f.DataTable = DataTables("表B")

            f.Filter = "[_Identify]=" & e.DataRow("_Identify")

            f.ExcludeExistValue = True

            f.Fill() '填充数据

        End If

End Select