Foxtable(狐表)用户栏目专家坐堂 → 多行多字段同时查询


  共有1689人关注过本帖树形打印复制链接

主题:多行多字段同时查询

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/11 20:11:00 [显示全部帖子]

你是要分离不同的编号?还是怎样?

 

Dim str As String = "P180130001,180130001" 'e.Form.Controls("TextBox3").Text
Dim s1 As String = ""
Dim s2 As String = ""
For Each s As String In str.split(",")
    If s.StartsWith("P") Then
        s1 &= "'" & s & "',"
    Else
        s2 &= "'" & s & "',"
    End If
Next
s1 = s1.trim(",")
s2 = s2.trim(",")
msgbox(s1)
msgbox(s2)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 11:37:00 [显示全部帖子]

你代码本身就没问题的啊,目前输入什么查不到?做个例子说明。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 11:46:00 [显示全部帖子]

 

[此贴子已经被作者于2018/1/12 11:47:32编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 11:48:00 [显示全部帖子]

DataTables("T_Sample").LoadFilter = "(样品编号 In ('" & e.Form.Controls("TextBox3").Text.Replace(",", "','") & "') Or 报告编号 In ('" & e.Form.Controls("TextBox3").Text.Replace(",", "','") & "'))"

 回到顶部