以文本方式查看主题

-  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=8249)
--  作者：唐尸三摆手
--  发布时间：2010/9/23 9:58:00
--  关于复选框选定行的问题，老大请指教

窗口表用复选框模式，现将表中数据勾选多行，有一列为序列号 ，希望提取所有选中行中的序列号列的内容用到下面sql语句中执行

 

dim sn as string in tables("窗口1_table1").GetCheckedRows()

Tables("表B").fill("select * from 源数据表 where 序列号 in("& sn &"","erp",false)

 

不知如何修改代码，请教

 

"& sn &"  其实要的结果就是"序列号1","序列号2","","序列号3"
--  作者：e-png
--  发布时间：2010/9/23 10:47:00
--  

Dim sn As List(of Row) = Tables("窗口1_Table1").GetCheckedRows()

For Each s As Row in sn
    .................


Next

[此贴子已经被作者于2010-9-23 10:47:50编辑过]
--  作者：唐尸三摆手
--  发布时间：2010/9/23 13:05:00
--  
不行啊，那岂不是每个结果都要fill一遍，最后只会剩下最后一个数据集啊
--  作者：czy
--  发布时间：2010/9/23 13:33:00
--  

你用自带的示例文件测试一下。

在窗口中增加一个table控件，绑定到订单表。

再增加一个table控件。

 

按钮代码：

 

Dim gcr As List(of Row) = Tables("订单").GetCheckedRows()
Dim s As String
For Each r As Row In gcr
    s = s & "\'" & r("产品") & "\',"
Next
Tables("窗口名称_table2").fill("select * from {订单} where 产品 in(" & s.Trim(",") & ")","",False)
--  作者：唐尸三摆手
--  发布时间：2010/9/23 17:30:00
--  
呵呵，谢谢