如何实现全选中导入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何实现当前窗口“产品”表的数据全选，并仅对当前窗口全选的数据批量导入 "B明细表"？

下面代码，是手工选单条，执行单条导入，如何实现上面需求：

Dim t As Table = e.Form.Controls("产品").Table

For k As Integer = t.TopRow To t.BottomRow

Dim r As Row = t.Rows(k)

If r("选中") = True Then

Dim nma() As String = {"产品编号","产品名称"}

Dim nmb() As String = {"产品编号","产品名称"}

Dim dr As Row = Tables("B明细表").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

End If

主题：如何实现全选中导入