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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 产品ID查询

共有4653人关注过本帖树形打印复制链接主题：产品ID查询

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 8:26:00 [显示全部帖子]

Filter="Convert([产品ID], 'System.Int32') like '%1%'"

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 8:50:00 [显示全部帖子]

写错了

Filter="Convert([产品ID], 'System.String') like '%1%'"

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 8:55:00 [显示全部帖子]

错误不是已经明确告诉你问题所在了吗?

你引号写错了

tbl.Filter ="Convert([产品ID], 'System.String') like '%1%' Or 产品图号 Like " & txt & " Or 类别代号 Like " & txt & " Or 产品名称 Like " & txt & " Or 图纸PDF Like " & txt & " Or 原始图纸 Like " & txt & " Or 大恒图纸 Like " & txt & " Or 图纸CAD Like " & txt & " Or 辅助编号 Like " & txt & " Or 客户图号 Like " & txt & " Or 产品材料 Like " & txt & " Or 产品规格 Like " & txt & " Or 备注 Like " & txt
End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 9:25:00 [显示全部帖子]

精确查询直接用等于不就完了

编号=222

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 10:02:00 [显示全部帖子]

注册1年. 发帖300多. 等于判断不懂? 我没有办法理解你这一年和300多个帖子都做了些什么? 复制别人的代码吗?

tbl.Filter ="编号=222"

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 10:03:00 [显示全部帖子]

建议楼主先按部就班看一遍帮助,至少!

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 10:10:00 [显示全部帖子]

如果是数值类型

tbl.Filter ="编号=" & e.form.contolrs("TextBox1').text

如果是字符串类型

tbl.Filter ="编号='" & e.form.contolrs("TextBox1').text & "'"

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 10:28:00 [显示全部帖子]

只要你按部就班看帮助,自然就会发现的了

http://www.foxtable.com/help/topics/1284.htm

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/23 11:11:00 [显示全部帖子]

例子在这里：
http://www.foxtable.com/help/topics/1058.htm

Dim txt As String = e.Form.Controls("ID查询").Text
Dim tbl As Table = Tables("产品表")
If txt = "" Then
     tbl.Filter = ""
Else
     txt = "'产品ID= " & txt
     tbl.Filter =txt
End If

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

主题：产品ID查询