主题：[求助]“in”在MainTableChanged事件中被过分要求

对于下列代码，因_usergroup中不含“,”，在MainTableChanged事件中就会出错，要求_usergroup必须含有逗号。

Dim _usergroup As String = "'西北院'"
Dim Names As List(Of String)
Names = Tables("人员管理").DataTable.GetUniqueValues("[部门名称] in (" & _usergroup & ")" , "员工姓名")

于是只能增加if语句。但考虑到_usergroup中已经含有单引号，所以还要先去掉。能通过的代码如下：

Dim Names As List(Of String)
If _usergroup = "'西北院'" Then
    Names = Tables("人员管理").DataTable.GetUniqueValues("[机关] = '是'","员工姓名")
Else
    If _usergroup Like "*,*" Then
        Names = Tables("人员管理").DataTable.GetUniqueValues("[部门名称] in (" & _usergroup & ")" , "员工姓名")
    Else
        Names = Tables("人员管理").DataTable.GetUniqueValues("[部门名称] = '" & _usergroup.trim("'") & "'" , "员工姓名")
    End If
End If

请狐爸核实！