Dim sn As List(of Row) = Tables("窗口1_Table1").GetCheckedRows()For Each s As Row in sn .................
Next