[求助]目录树筛选不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢，OK。麻烦再看看下面的代码：

Dim tba As Table = Forms("添加商品").Controls("Table1").Table

For Each r As Row In tba.GetCheckedRows

Dim nma() As String = {"商品编号","商品名称","规格型号","等级","计量单位","单片重量"} 'A表数据来源列

Dim nmb() As String = {"商品编号","商品名称","规格型号","等级","单位","片重"} 'B表数据接收列

Dim tbb As Table = Forms("销售订单").Controls("订单明细").Table

Dim dr As DataRow = tbb("销货订单.销货订单明细").AddNew

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

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

Forms("添加商品").close

编译错误：AddNew 不是“Row”成员

改成以下代码后，在“销货订单明细”里增加了选择行，但是窗口表“订单明细.销货订单明细”这个关联表没有任何数据

Dim tba As Table = Forms("添加商品").Controls("Table1").Table

For Each r As Row In tba.GetCheckedRows

Dim nma() As String = {"商品编号","商品名称","规格型号","等级","计量单位","单片重量"} 'A表数据来源列

Dim nmb() As String = {"商品编号","商品名称","规格型号","等级","单位","片重"} 'B表数据接收列

'Dim tbb As Table = Forms("销售订单").Controls("订单明细").Table

Dim dr As DataRow = DataTables("销货订单明细").AddNew

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

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

Forms("添加商品").close

[此贴子已经被作者于2016/8/29 19:24:31编辑过]

主题：[求助]目录树筛选不起作用