Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2776人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
kaiyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:785 积分:7969 威望:0 精华:0 注册:2014/4/21 15:16:00
[求助]  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/28 9:23:00 [只看该作者]

lst是集合  你怎么能 msgbox(一个集合呢?)

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



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/28 9:24:00 [只看该作者]

而且狐表本事就有getValues 函数可以直接获得一个列的集合




 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:785 积分:7969 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/8/28 9:31:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/28 9:34:00 [只看该作者]

以下是引用kaiyu在2014-8-28 9:31:00的发言:

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/28 9:35:00 [只看该作者]

提问请直接抓重点,绕半天发现问的根本不是这个.

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





 回到顶部
帅哥哟,离线,有人找我吗?
kaiyu
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:785 积分:7969 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:785 积分:7969 威望:0 精华:0 注册:2014/4/21 15:16:00
  发帖心情 Post By:2014/8/28 9:38:00 [只看该作者]

少发了一个数据源

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部