ListView加载数据，

For Each dr As DataRow In DataTables("人员安排").DataRows
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Group = dr("设计阶段")  \'指定所属分组
    For Each cl As  String In cls  \'逐列取值
        vr(cl)=dr(cl)
    Next
    vr.Tag = dr  \'将DataRow赋值给ListViewRow的Tag属性
    vr.Name = dr("_Identify")  \'\'将DataRow的主键赋值给ListViewRow的Name属性
    If _UserName <> dr("设计") Then
        vr.Delete()
    End  If

这样的代码是可以运行的，可是我还要提取出用户是校核，审核（其他列的名称）的行，代码怎么编写啊

拜托大神！！

我试过

If _UserName <> dr("设计")  or dr("校核")  or dr("审核")  Then，以及and这个都不行，还是这样的表达方式本身就是错误的啊

    If _UserName <> dr("设计") or _UserName <> dr("校核")  or _UserName <> dr("审核") Then

        vr.Delete()
    End  If

If _UserName <> dr("设计") AndAlso _UserName <> dr("校核")  AndAlso _UserName <> dr("审核") Then
    vr.Delete()
End  If

谢谢，已经解决。

另外我还想问下，我怎么在窗口的标签中显示用户的名字呢，我的用户是外部数据源

我是把or换成了and就解决了问题，

但是使用If _UserName <> dr("设计") AndAlso _UserName <> dr("校核")  AndAlso _UserName <> dr("审核") Then
    vr.Delete()
End  If

也能实现，这and 和 andalso两个具体有什么区别呢

 and 和 andalso 执行结果上没有区别。

 andalso的时候，只要某一个条件为假，后面的判断就不执行了；而and，会把所有的判断执行完毕

那还是andalso合适些，谢谢

另外我还想问下，我怎么在窗口的标签中显示用户的名字呢，我的用户是外部数据源

e.Form.Controls("Label1").Text = _UserName

那要在菜单里面显示登陆信息呢？