以文本方式查看主题

-  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=56030)

--  作者:kaiyu
--  发布时间:2014/8/28 9:22:00
--  [求助]
Dim dt As Table = Tables("物料清单表")
Dim boms() As  String
Dim lst As new List(of String)
For Each dr As Row In dt.Rows
   Dim s As String = Cstr(dr("ID"))
     lst.Add(s)
  msgbox(lst)
Next
我想获取物料清单表里的ID列生成一个数组,这样做为什么不行(ID列为整型数据)

--  作者:Bin
--  发布时间:2014/8/28 9:23:00
--  
lst是集合  你怎么能 msgbox(一个集合呢?)

msgbox(lst.Count)  倒是可以的.



--  作者:Bin
--  发布时间:2014/8/28 9:24:00
--  
而且狐表本事就有getValues 函数可以直接获得一个列的集合




--  作者:kaiyu
--  发布时间:2014/8/28 9:31:00
--  

问题是这列数据类型为整型,我想把它生成一个数组,用到SQL里做查询条件where ID in 数组,老是提示出错


--  作者:有点甜
--  发布时间:2014/8/28 9:34:00
--  
以下是引用kaiyu在2014-8-28 9:31:00的发言:

问题是这列数据类型为整型,我想把它生成一个数组,用到SQL里做查询条件where ID in 数组,老是提示出错

 

完整代码发上来,说明哪里出错。


--  作者:Bin
--  发布时间:2014/8/28 9:35:00
--  
提问请直接抓重点,绕半天发现问的根本不是这个.

Dim s As String  = DataTables("物料清单表").GetComboListString("ID")
where ID in (\'" & s.replace("|","\',\'") & "\')"





--  作者:kaiyu
--  发布时间:2014/8/28 9:37:00
--  
Dim dt As Table = Tables("物料清单表")
Dim s As  String
s = Tables("GY物料清单表").DataTable.GetComboListString("ID")
Dim boms() As String = s.Split("|")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText ="select * from {物料清单明细表} where ID in boms"
rdt = cmd.ExecuteReader

--  作者:kaiyu
--  发布时间:2014/8/28 9:38:00
--  
少发了一个数据源
--  作者:有点甜
--  发布时间:2014/8/28 9:39:00
--  

Dim dt As Table = Tables("物料清单表")
Dim s As  String
s = Tables("GY物料清单表").DataTable.GetComboListString("ID")

Dim cmd As new SQLCommand
\'cmd.C
cmd.CommandText ="select * from {物料清单明细表} where ID in (" & s.Replace("|", ",") & ")"
rdt = cmd.ExecuteReader