1.
表的类型，Normal，改为副表时，筛选是狐表的表，不是窗口上的表，在窗体还是没显示 |
筛选
Tables("产品材料明细").Filter = Filter 改为 Tables("产品B_产品材料明细").Filter = Filter
2.在表属性，放下面代码，想实现主表和明细表及其他都能调用，材料明细，但就是实现一个，有时，主表或明细，如何二个表或多个表引用？
--------------------有问题---------------------------------------
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.M").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
End If
Next
Dim f As Table = e.Form.Controls("材料明细").Table
For d As Integer = t.TopRow To t.BottomRow
Dim r As Row = t.Rows(d)
If r("选中") = True Then
Dim nme() As String = {"产品编号","品名","规格","单位","版次"}
Dim nmd() As String = {"产品编号","产品名称","规格","单位","版次"}
Dim dr As Row = Tables("B").AddNew
For i As Integer = 0 To nme.Length - 1
dr(nmd(i)) = r(nme(i))
Next
End If
Next
加好友 
发短信
Post By：2019/12/31 14:14:00 [显示全部帖子]
