以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个集合的比较  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88127)

--  作者:lk15502
--  发布时间:2016/7/27 15:19:00
--  两个集合的比较
dim kcbs as list(of string)
kcbs = datatables("库存表“).getvalues("入库编号“)
for each kcb as string in kcbs
提取库存表“入库编号”列不重复的列

dim ckbs as list(of string)
ckbs = datatables("出库表“).getvalues("入库编号“)
for each ckb as string in ckbs
提取出库表“入库编号”列不重复的列

请问如何把kcbs和ckbs两个集合相同的“入库编号”提取出来?

--  作者:大红袍
--  发布时间:2016/7/27 15:25:00
--  
Dim str As String = DataTables("出库表").GetComboListString("入库编号")
str = str.Replace("|", "\',\'")
Dim kcbs As List(of String)
kcbs = DataTables("库存表").getvalues("入库编号", "入库编号 in (\'" & str & "\')")

--  作者:lk15502
--  发布时间:2016/7/27 15:50:00
--  
红袍老师两句代码看不懂,能不能解释一下;
Dim str As String = DataTables("出库表").GetComboListString("入库编号")
str = str.Replace("|", "\',\'")
Dim kcbs As List(of String)
kcbs = DataTables("库存表").getvalues("入库编号", "入库编号 in (\'" & str & "\')")


--  作者:大红袍
--  发布时间:2016/7/27 15:52:00
--  

 取出出库表的编号,作为条件,到库存表查询相同的值

 

 相当于执行

 

kcbs = DataTables("库存表").getvalues("入库编号", "入库编号 in (\'123\', \'456\', \'789\')")


--  作者:lk15502
--  发布时间:2016/7/27 16:25:00
--  
老师再问一下,如果SQL数据源("入库编号", "入库编号 in (\'" & str & "\')")其中有&有没有关系?,谢谢!!!


--  作者:大红袍
--  发布时间:2016/7/27 16:27:00
--  
 不影响。如果有问题,截图说明报什么错。