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

1楼

唐尸三摆手 发表于：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"

2楼

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
.................

[此贴子已经被作者于2010-9-23 10:47:50编辑过]

3楼

唐尸三摆手 发表于：2010/9/23 13:05:00

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

4楼

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)

5楼

唐尸三摆手 发表于：2010/9/23 17:30:00

呵呵，谢谢

共5 条记录, 每页显示 10 条, 页签: [1]