[求助]“in”在MainTableChanged事件中被过分要求 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]“in”在MainTableChanged事件中被过分要求

共有3296人关注过本帖树形打印复制链接主题：[求助]“in”在MainTableChanged事件中被过分要求

shenyl0211

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00

[求助]“in”在MainTableChanged事件中被过分要求 发帖心情

Post By：2013/8/21 16:19:00 [只看该作者]

对于下列代码，因_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

请狐爸核实！