请教老师,  下面语句中第一段Case "客户名称","是否新客户"
是否与第二段 Case "是否新客户"  的效果相同?   如果采用第二段语句，是否可删除第一段？

Select Case e.DataCol.Name
    Case "客户名称","是否新客户"
        If e.DataRow.IsNull("客户名称") = False AndAlso e.DataRow("是否新客户") = True Then
            If e.DataRow.GetChildRows("客户登记").Count = 0 Then
                Dim dr As DataRow = DataTables("客户登记").AddNew()
                dr("客户名称") = e.DataRow("客户名称")
                dr("采购联系人") = e.DataRow("联系人")
                dr("采购电话") = e.DataRow("联系电话")
                dr("交货地址") = e.DataRow("交货地址")
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "客户名称"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = \'" & dr1("客户名称") & "\'")
        If dr2 IsNot Nothing Then
            dr1("客户名称") = dr2("客户名称")
            dr1("联系人") = dr2("采购联系人")
            dr1("联系电话") = dr2("采购电话")
            dr1("交货地址") = dr2("交货地址")
        End If
    Case "是否新客户"
        If e.DataRow("是否新客户") = True
            Dim dr1 As DataRow = e.DataRow
            Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = \'" & dr1("客户名称") & "\'")
            If dr2 Is Nothing Then
                dr2 =  DataTables("客户登记").AddNew()
                dr2("客户名称") = dr1("客户名称")
                dr2("采购联系人") = dr1("联系人")
                dr2("采购电话") = dr1("联系电话")
                dr2("交货地址") = dr1("交货地址")
            End If
        End If
End Select

Select Case e.DataCol.Name
    Dim dr1 As DataRow = e.DataRow
    Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = \'" & dr1("客户名称") & "\'")
Case "客户名称"
    If dr2 IsNot Nothing Then
        dr1("联系人") = dr2("采购联系人")
        dr1("联系电话") = dr2("采购电话")
        dr1("交货地址") = dr2("交货地址")
    End If
Case "是否新客户"
    If e.DataRow("是否新客户") = True
        If dr2 Is Nothing Then
            dr2 =  DataTables("客户登记").AddNew()
            dr2("采购联系人") = dr1("联系人")
            dr2("采购电话") = dr1("联系电话")
            dr2("交货地址") = dr1("交货地址")
        End If
    End If
End Select