多行多字段同时查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1693人关注过本帖树形打印复制链接主题：多行多字段同时查询

benwong2013

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

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

多行多字段同时查询 发帖心情

Post By：2018/1/11 18:34:00 [只看该作者]

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

DataTables("T_Sample").Load()

我希望在文本框输入 ****，****，&&&&，格式的内部时，能支持在样品编号及报告编号中查询，加载对应的数据，单列的是可以的；

样品编号与报告编号差异在报告编号前面有一个固定的P，如报告编号为P180130001时，样品编号为180130001；

请这个代码应该如何修改才可以

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

benwong2013

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

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2018/1/12 10:58:00 [只看该作者]

不是，意思当我们无论输入什么内容的时候，可以一次性输入几个需要查询的内容，但每个之间以“，”区隔，系统能在A列及B列查找，将满足一一对应的行逐个列出；

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 11:37:00 [只看该作者]

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

benwong2013

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

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2018/1/12 11:41:00 [只看该作者]

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.12.18.1

错误所在事件：窗口,库位查询,TextBox3,TextChanged

详细错误信息：

从字符串“(样品编号 In ('1') & ”到类型“Long”的转换无效。

输入字符串的格式不正确。

输入需要查询的内容会提示这样的错误

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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(",", "','") & "'))"

下一主题 >> << 上一主题

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