代码这样写

If e.DataCol.Name = "A" OrElse e.DataCol.Name = "B" OrElse e.DataCol.Name = "C" OrElse e.DataCol.Name = "D"  Then
    If e.DataRow.IsNull("A") = False AndAlso e.DataRow.IsNull("B") = False  AndAlso e.DataRow.IsNull("C") = False  AndAlso e.DataRow.IsNull("D") = False Then
        Dim dr As DataRow = DataTables("表B").AddNew()
        dr("A") = e.DataRow("A")
        dr("B") = e.DataRow("B")
        dr("C") = e.DataRow("C")
        dr("D") = e.DataRow("D")
    End If
End If

太好了，谢谢！！！