- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现全选中导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172755)
-- 发布时间：2021/10/29 10:14:00
-- 如何实现全选中导入
如何实现当前窗口“产品”表的数据全选，并仅对当前窗口全选的数据批量导入 "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))
Next
End If
Next
-- 发布时间：2021/10/29 10:17:00
--
代码没有问题，截图说明一下
-- 发布时间：2021/10/29 11:34:00
--
此主题相关图片如下：选中导入问题.jpg
-- 发布时间：2021/10/29 11:40:00
--
需求：
1.如何单击“选中“按键，当前窗口显示的数据为全选，不能包括后台的数据；
2.如何单击“导入“按键，将当前窗口显示的全选数据，导入另一个表；
上面代码，只能用手工单选，单条导入，手工多选，也是单条导入，无法实现多选导入
-- 发布时间：2021/10/29 13:37:00
--
1、
For each r as row in t.Rows
r("选中") = True
……
2、
Dim t As Table = e.Form.Controls("产品").Table
For each r as row in t.Rows
If r("选中") = True Then
Dim nma() As String = {"产品编号","产品名称"}
……
-- 发布时间：2021/10/29 15:32:00
--
Dim r As Table = e.Form.Controls("产品").Table
For Each r As Row In r.Rows
r("选中") = True
Next
报错：Row 不是Rows成员
-- 发布时间：2021/10/29 15:50:00
--
Dim t As Table = e.Form.Controls("产品").Table
For Each r As Row In t.Rows