主题：关于 in的问题

请问以下代码中，的加粗部份应该如何写好呢？我试好几个方法都不行。

 

Select Case e.Table.Name
    Case "员工资料","工序编码表","工序单价表","工资录入表","扣费表","评级工记录表"
        For Each dr1 As DataRow In DataTables("授权表").Select("用户名 = '" & Vars("_UserName") & "'" )
            if dr1("表名") =e.Table.name AndAlso dr1("只能编辑个人数据")=true then
                if Vars("_UserName") <> e.row("修改用户") then
                    e.cancel=true
                    Messagebox.Show("你已经被限制只能编缉属于你自己的数据!,如有疑问,请与管理员联系","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            end if
            if dr1("表名") =e.Table.name andalso dr1("只能编辑部门数据")=true then
                if e.row.isnull("部门") then
                 Return
               elseif e.row("部门") not in dr1("部门范围") then
                    e.cancel=true
                    Messagebox.Show("你已经被限制只能编缉属于你的部门数据!,如有疑问,请与管理员联系","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            end if
        next
End Select

in是表达式语法，不是代码，两者要区分清除。

那如果我要达到这个表的部门列不在给定的范围这个想法要如何做呢？

dr1("部门范围").indexof( e.row("部门")) < 0

谢谢，可以了！