主题：关于复选框选定行的问题，老大请指教

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

 

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

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

 

不知如何修改代码，请教

 

"& sn &"  其实要的结果就是"序列号1","序列号2","","序列号3"

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

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

Next

不行啊，那岂不是每个结果都要fill一遍，最后只会剩下最后一个数据集啊

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

在窗口中增加一个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)

呵呵，谢谢