动态显示文本框控件

johhy　发表于：2012-05-16 11:00:25 　

复制

可不可以根据条件动态显示文本框控件，见附件，比如地区和日期为一个值时，下面控件显示a和b栏位的记录，当地区和日期为另一个值时，下面控件显示c和d栏位的记录，当然控件位置不变，见上面两个图，同一个窗体条件不同时显示控件不同，谢谢

点击下载此附件

Top

叶海峰发表于：2012-05-16 14:26:10

Private Sub Text0_AfterUpdate()
    If Me.Text0 = 1 Then
        Me.Text4 = DLookup("a", "表1", "地区='1'")
        Me.Label5.Caption = "a"
        Me.Text6 = DLookup("b", "表1", "地区='1'")
        Me.Label7.Caption = "b"
    ElseIf Me.Text0 = 2 Then
        Me.Text4 = DLookup("c", "表1", "地区='2'")
        Me.Label5.Caption = "c"
        Me.Text6 = DLookup("d", "表1", "地区='2'")
        Me.Label7.Caption = "d"
    End If
End Sub

Top

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

Access交流中心

动态显示文本框控件