字符型集变量 IN 使用方法再请教。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符型集变量 IN 使用方法再请教。

共有2975人关注过本帖树形打印复制链接主题：字符型集变量 IN 使用方法再请教。

lanbor

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

加好友

发短信

等级：一尾狐帖子：435 积分：4396 威望：0 精华：0 注册：2017/3/20 21:08:00

字符型集变量 IN 使用方法再请教。 发帖心情

Post By：2019/5/10 19:45:00 [只看该作者]

vars("find01") 的值由CheckBoxes 控件选择结果得到。

vars("find01")=制造一课，制造二课，制造三课

请教下面的语句怎么写的？

Dim filter As String="proc_zx='三雨' and proc03 between '" & Vars("day_begin") & "' and '" & Vars("day_end") & "'" ' And proc02 In (" & Vars("find01").trim(",") & ") "

DataTables("proc99").loadFilter=filter

DataTables("proc99").load() '"" '"order_code='ZZZZ'"

[此贴子已经被作者于2019/5/10 19:45:16编辑过]

lanbor

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

加好友

发短信

等级：一尾狐帖子：435 积分：4396 威望：0 精华：0 注册：2017/3/20 21:08:00

在帮助里面找到了。 发帖心情

Post By：2019/5/10 20:02:00 [只看该作者]

Dim filter As String="proc_zx='三雨' and proc03 between '" & Vars("day_begin") & "' and '" & Vars("day_end") & "' And proc02 In ('" & Vars("find01") & "') "

lanbor

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

加好友

发短信

等级：一尾狐帖子：435 积分：4396 威望：0 精华：0 注册：2017/3/20 21:08:00

再请教，我的方法结果没有任何记录出现。 发帖心情

Post By：2019/5/10 20:13:00 [只看该作者]

我的方法虽然没有报错，但没有任何记录出现。

再请教，我的方法结果没有任何记录出现。

vars("find01")=制造一课，制造二课，制造三课

Dim filter As String="proc_zx='三雨' and proc03 between '" & Vars("day_begin") & "' and '" & Vars("day_end") & "' And proc02 In ('" & Vars("find01") & "') " 没有记录出现，表里面肯定有记录的。

DataTables("proc99").loadFilter=filter

DataTables("proc99").load() '"" '"order_code='ZZZZ'"

有点蓝

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

加好友

发短信

等级：超级版主帖子：113538 积分：578191 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/5/10 20:54:00 [只看该作者]

& "' And proc02 In ('" & Vars("find01").replace(",","','") & "') "

lanbor

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

加好友

发短信

等级：一尾狐帖子：435 积分：4396 威望：0 精华：0 注册：2017/3/20 21:08:00

这一招，看来是刚学到。 发帖心情

Post By：2019/5/10 22:12:00 [只看该作者]

多谢你：有点蓝。

lanbor

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

加好友

发短信

等级：一尾狐帖子：435 积分：4396 威望：0 精华：0 注册：2017/3/20 21:08:00

字符集变更在SQL select 中的引用再请教！ 发帖心情

Post By：2019/5/11 9:01:00 [只看该作者]

字符集变更在SQL select 中的引用再请教！

Vars("find01")的值来自于checkcombbox选择结果

Vars("find01")=制造一课，制造二课

filter=" where p9.proc_zx='三雨' and p9.proc03 between '" & Vars("day_begin") & "' and '" & Vars("day_end") & "' And proc02 In ('" & Vars("find01").replace(",","','") & "') " 请教这集变量Vars("find01")怎么引用

Dim cmd As new SQLCommand

Dim eDTb01 As DataTable ' PUBLIC DataTable

cmd.C

cmd.Comm andText = "Select * fro m {proc99} p9 inner join {proc98} p8 on p9.proc_id=p8.proc_idm " & filter & "order by p9.proc01,p9.proc02,p9.proc03,p8.proc805" '取所有物料

eDTb01 = cmd.ExecuteReader()

[此贴子已经被作者于2019/5/11 9:02:26编辑过]