If e.Table.Name = "成品出库.成品颜色花型" Then
If Forms("成品出库").Opened Then
If e.Table.Current IsNot Nothing Then
Forms("成品出库").Controls("Table2").Table.Filter = "颜色花型编号 = " & e.Table.Current("_Identify")
Forms("成品出库").Controls("Table3").Table.Filter = "颜色花型编号 = " & e.Table.Current("_Identify")
Else
Forms("成品出库").Controls("Table2").Table.Filter = "1=2"
Forms("成品出库").Controls("Table3").Table.Filter = "1=2"
End If
End If
End If
运行时,显示如下错误:
此主题相关图片如下:1.png
此主题相关图片如下:2.png
此主题相关图片如下:3.png