
此主题相关图片如下:14f08683-d82e-4c73-9ca4-701f63f8c8cd.png


此主题相关图片如下:cd17c544-8d1b-46e3-85e1-8a56bd9f7b0c.png

If Forms("框架清单").opened Then '窗口框架清单已经打开
If Tables("框架清单_Table1").current IsNot Nothing Then
Dim txt As String = Tables("框架清单_Table1").current("框架编号")
Tables("框架清单_Table3").filter = "框架编号 = '" & txt
End If
End If
此主题相关图片如下:lqlpjwjuuvbfc6dna7znclcwbhtlckxbjwoe83ytnoctaa_2224_956.png
