以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]ComboBox控件获取包含指定字符的所有不重复内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74948)
--  作者：农村人
--  发布时间：2015/9/23 11:25:00
--  [求助]ComboBox控件获取包含指定字符的所有不重复内容
表A,第一列有数据例如:
KA-110
KA-298
TR-909
...
假设窗口控件"TextBox"的字符是:"KA-899"
ComboBox控件需要获取到表A第一列中包含"KA"的所有不重复内容,如何做?
--  作者：大红袍
--  发布时间：2015/9/23 11:26:00
--  
设置条件 "第一列 like \'" & e.Form.Controls("TextBox1").Text.Split("-")(0) & "-%\'"
--  作者：农村人
--  发布时间：2015/9/23 11:31:00
--  
感觉感谢袍哥图片点击可在新窗口打开查看
--  作者：农村人
--  发布时间：2015/9/23 11:49:00
--  
如果字符是:
1-03K1
1-03K2
1-03B1

使用条件获取"-"后面的数据,是修改"第一列 like \'" & e.Form.Controls("TextBox1").Text.Split("-")(0) & "-%\'" 这里面的哪个地方?
--  作者：大红袍
--  发布时间：2015/9/23 11:55:00
--  

你先分割文本框的字符，然后写入自己的规则，再查

 

Dim ary() As String = e.Form.Controls("TextBox1").Text.Split("-")

If val(ary(0)) = 0 AndAlso ary(0) <> "0" Then
   
    "第一列 like \'" & e.Form.Controls("TextBox1").Text.Split("-")(0) & "-%\'"
   
ElseIf Then
   
    "第一列 like \'" & e.Form.Controls("TextBox1").Text.Split("-")(1) & "-%\'"
   
End If