项目地址不为空，开头字符串为 广场，且城市等于 中山，项目名称等于 项目1

项目总 自动录入  小王，下列代码怎么修改呢？谢谢

Select Case e.DataCol.Name
    Case "设计任务要求_城市","设计任务要求_项目名称","设计任务要求_项目地址"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("设计任务要求_项目地址") = False Then
            If dr("设计任务要求_项目地址") Like "广场%" AndAlso  dr("设计任务要求_城市") = "中山" AndAlso dr("设计任务要求_项目名称") = "项目1"   Then
                dr("项目信息_项目总") ="小王"
            End If
        End If
End Select

此主题相关图片如下：多条件自动录入.png

Select Case e.DataCol.Name
    Case "设计任务要求_城市","设计任务要求_项目名称","设计任务要求_项目地址"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("设计任务要求_项目地址") = False Then
            If dr("设计任务要求_项目地址") Like "广场*" AndAlso  dr("设计任务要求_城市") = "中山" AndAlso dr("设计任务要求_项目名称") = "项目1" Then
                dr("项目信息_项目总") ="小王"
            End If
        End If
End Select