- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 关于查询问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116104)
-- 发布时间：2018/3/20 8:52:00
-- [求助] 关于查询问题
此主题相关图片如下：qq图片20180320084942.png
想使用sql 查询下编号等于上图编号的 表a数据 怎么样实现啊
”s elect * from 表a where 单据编号 in （？？）”
[此贴子已经被作者于2018/3/20 8:57:21编辑过]
-- 发布时间：2018/3/20 9:48:00
--
select * from {表A} where 单据编号 in (\'ZJJL201503\', \'ZJJL201504\')
-- 发布时间：2018/3/20 9:50:00
--
图片中的数据是动态的，不能这样直接写的
我想 通过 for each 遍历上图对应的table 来构造一个字符串 类似 （\'a\',\'b\'.....）
但我不会写
[此贴子已经被作者于2018/3/20 9:51:19编辑过]
-- 发布时间：2018/3/20 10:11:00
--
Dim t As Table = Tables("表A")
Dim str As String = "\'\',"
For Each r As Row In t.rows
str &= "\'" & r("第一列") & "\',"
Next
Dim sql As String = "select * from {表A} where 单据编号 in (" & str.trim(",") & ")"
msgbox(sql)
[此贴子已经被作者于2018/3/20 12:57:25编辑过]
-- 发布时间：2018/3/20 11:11:00
--
谢谢，等下我试试
简单修正了下
Dim t As Table = Tables("大豆质检单")
Dim str As String
For Each r As Row In t.rows
str &= "\'" & r("质检报告编号") & "\',"
Next
Dim sql As String = "s elect * from {表A} where 单据编号 in (" & str.SubString(0,str.Length-1) & ")"
msgbox(sql)
[此贴子已经被作者于2018/3/20 12:51:33编辑过]