以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]getcomboliststring结果中去掉特定值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131803)
--  作者：sunion
--  发布时间：2019/3/6 21:04:00
--  [求助]getcomboliststring结果中去掉特定值
Dim name As WinForm.ComboBox =e.Form.Controls("选择姓名")
Dim xuenian As String = e.Form.Controls("学年").text
Dim banj As String = e.Form.Controls("label9").text
Dim nam As WinForm.label = e.Form.Controls("label4")

Dim s As String
s = DataTables("学生综合素质表").GetComboListString("姓名","[班级]= \'" & banj & "\' and [学年]= \'" & xuenian & "\'","学号")
name.combolist = s

我想要的是：name的值 = s的结果中去掉张三，这个代码该怎么改写呢？
--  作者：有点甜
--  发布时间：2019/3/6 21:17:00
--  

 

s = DataTables("学生综合素质表").GetComboListString("姓名","[班级]= \'" & banj & "\' and [学年]= \'" & xuenian & "\' and 姓名 not in (\'张三\', \'李四\')","学号")

 

 
--  作者：tkxffb
--  发布时间：2019/4/2 16:06:00
--  
有点甜老师，恰好我有问题与这个类似，但需要去掉的是某一类人而不是具体哪一个或哪几个人，例如我想去掉姓张的，代码怎么写？
谢谢
[此贴子已经被作者于2019/4/2 16:06:56编辑过]
--  作者：有点甜
--  发布时间：2019/4/2 17:33:00
--  
s = DataTables("学生综合素质表").GetComboListString("姓名","[班级]= \'" & banj & "\' and [学年]= \'" & xuenian & "\' and 姓名 not Like \'张%\'","学号")
--  作者：tkxffb
--  发布时间：2019/4/2 22:47:00
--  
老师好，下面的代码是参考论坛上的帖子写的，可是运行之后只是空格，请问该怎么改？

Dim gydw As String = e.Form.Controls("ComboBox3").text  
Dim gnq As String = RibbonTabs.SelectedTab.Name   \'---定义gnq是功能区的名称
If gnq = "乡镇敬老院人员信息系统" Then  \'---如果功能区名称是乡镇集中供养人员信息系统
    e.sender.ComboList = DataTables("乡镇及供养单位词典").SQLGetComboListString("乡镇供养单位","乡镇供养单位 Like \'" & gydw & "\' and 乡镇供养单位 Like \'%敬老院%\'")
ElseIf gnq = "村级养老点人员信息系统" Then
    e.sender.ComboList = DataTables("乡镇及供养单位词典").SQLGetComboListString("乡镇供养单位","乡镇供养单位 Like \'" & gydw & "\' and 乡镇供养单位 Not Like \'%敬老院%\'")
End If
--  作者：有点蓝
--  发布时间：2019/4/2 23:14:00
--  
"乡镇供养单位 Like \'%" & gydw & "%\' and 乡镇供..........
--  作者：tkxffb
--  发布时间：2019/4/2 23:36:00
--  
有点蓝老师好，按上面的指导把代码改了，可是仍然不能用。为了便于老师看明白问题，我开个新帖子，并上传截图。谢谢老师深夜加班指教
--  作者：有点甜
--  发布时间：2019/4/3 9:24:00
--  
Dim gydw As String = e.Form.Controls("ComboBox3").value 
Dim gnq As String = RibbonTabs.SelectedTab.Name   \'---定义gnq是功能区的名称
If gnq = "乡镇敬老院人员信息系统" Then  \'---如果功能区名称是乡镇集中供养人员信息系统
    e.sender.ComboList = DataTables("乡镇及供养单位词典").SQLGetComboListString("乡镇供养单位","乡镇供养单位 Like \'%" & gydw & "%\'" & " And 乡镇供养单位 Like \'%敬老院%\'")
ElseIf gnq = "村级养老点人员信息系统" Then
    e.sender.ComboList = DataTables("乡镇及供养单位词典").SQLGetComboListString("乡镇供养单位","乡镇供养单位 Like \'%" & gydw & "%\'" & " And 乡镇供养单位 Not Like \'%敬老院%\'")
End If