在表的positionChanged事件加入代码
If Forms("产品尺寸制作").Opened Then
Forms("产品尺寸制作").Controls("Table1").Table.Filter = "产品编号 = '" & "' Or _Identify = " & e.Table.Rows(0)("_Identify")'窗口与表显示编号对于的行.,还有第一行.
'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If
'
If Forms("产品尺寸制作").Opened Then
Forms("产品尺寸制作").Controls("Table2").Table.Filter = "产品编号 = '" & e.Table.Current("商品信息_档案号") & "' Or _Identify = " & e.Table.Rows(0)("_Identify")'窗口与表显示编号对于的行.,还有第一行.
'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If
If Forms("产品尺寸制作").Opened Then
Forms("产品尺寸制作").Controls("Table3").Table.Filter = "产品编号 = '" & e.Table.Current("商品信息_档案号") & "' Or _Identify = " & e.Table.Rows(0)("_Identify")'窗口与表显示编号对于的行,还有第一行.
'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If