- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 将在一窗口内表中选中的数据添加到另一窗口的表中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104491)
-- 发布时间：2017/7/30 18:03:00
-- 将在一窗口内表中选中的数据添加到另一窗口的表中
如图，有两个窗口，实验和实验1
窗口实验内容如下
点击添加按钮后，会打开实验1，窗口实验1内容如下
名称为添加到实验 的按钮代码为
For Each dr1
As DataRow In DataTables("实验1_table1").Select("选择 = true")
Dim
dr2 As DataRow = DataTables("实验").AddNew()
For Each
dc As DataCol In DataTables("实验1_table1").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next
窗口“实验”和“实验1”中的表均为“实验”
就是想将在窗口“实验1”的表中选中的行，添加到窗口“实验”的表中
运行后出现这情况
求正确代码，先行谢谢大大们了
-- 发布时间：2017/7/30 18:15:00
--
Dim dt As DataTable = forms("实验1").controls("table1").Table.DataTable
For Each dr1 As DataRow In dt.Select("选择 = true")
Dim dr2 As DataRow = DataTables("实验").AddNew()
For Each dc As DataCol In dt.DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next