Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

请教:怎么样有条件隐藏报表中的控件

mmtea  发表于:2011-12-19 13:13:36  
复制

搞了一天,还是搞不定,哪位老师帮忙看下代码哪里出错了?


Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)

  If Me.直接解缴.Value = "1" Then
   Me.L1.Controls(0).Visible = True     
  Else
    Me.L1.Controls(0).Visible = False   
    End If 

      
  If Me.集中汇缴.Value = "1" Then
    Me.L2.Controls(0).Visible = True  
  Else   
    Me.L2.Controls(0).Visible = False   
    End If
End Sub


 

点击下载此附件

 

Top
sunny 发表于:2011-12-19 14:59:20

你用的是标签,去掉其他代码,

 

Private Sub Report_Open(Cancel As Integer)
If Me.直接解缴_Label.Caption = "直接解缴" Then
    Me.L1.Visible = False
End If
End Sub



mmtea 发表于:2011-12-19 16:51:58
试过了,不对。直接解缴不是标签,是文本框的值,L1才是标签

ADSL 发表于:2011-12-19 17:19:37

L1,L2是Label

 

以下写法是错误的

Me.L1.Controls(0).Visible = False

Me.L2.Caption.Visible = False

 

如果想隐藏L1,L2

请使用以下写法

Me.L2.Visible = False

 

 



mmtea 发表于:2011-12-19 23:08:56

多谢SUNNY和ADSL,你们两位的我都试过了,不行。

 

现在的代码如下,直接解缴是文本框中的值,L1和L2是标签,如果直接解缴=1,那么标签L1显示,如果直接解缴=0,那么标签L1不显示,请帮看下,哪里不对呢?

 

 

Private Sub Report_Open(Cancel As Integer)
If Me.直接解缴.Value = "1" Then
     Me.L1.Visible = True
   End If
   
  If Me.集中汇缴.Value = "1" Then
     Me.L2.Visible = True
  End If
End Sub

 



sunny 发表于:2011-12-20 08:56:46

你的报表里直接解缴或集中汇缴的值同时只有一种存在还是有1也有0的?

 

如果两种值都有,那你的想法怎么能实现?



mmtea 发表于:2011-12-20 10:44:55

数据如下:  1、 直接解缴=1   集中汇缴=1   2、直接解缴=1   集中汇缴=0    3、N......

 

报表中只有搜索出来的一行值呀,如 2、直接解缴=1   集中汇缴=0 ,而且报表中对应的控件是直接解缴-L1,集中汇缴-L2,我的想法是如果直接解缴=1,那么标签L1显示,如果直接解缴=0,那么标签L1不显示,应该可以实现的呀,请问该怎么做呢?



sunny 发表于:2011-12-20 11:56:27

点击下载此附件

 

将L1设置为隐藏先,再加个多个文本框,再判断

 

 



mmtea 发表于:2011-12-20 13:23:41

多谢SUNNY,看了你的例子才发现我的错误了,我是Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)

实际上我把L1放在页面页眉上了!!!

 

再次感谢SUNNY



总记录:8篇  页次:1/1 9 1 :