![](uploadface/12385_201252015322319685.jpg)
加好友 发短信
等级:幼狐
帖子:102
积分:912
威望:0
精华:0
注册:2012/5/20 6:57:00
|
[讨论]报错 Post By:2012/11/9 14:51:00 [只看该作者]
此段代码 产品表[产品编号]列为空时报错
If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开 Dim t As Table = Tables("窗口1_Table1") With Tables("产品") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "产品编号 = " & .Current("产品编号") End IF End With End If
|
|