Office中国论坛/Access中国论坛

标题: [求助]如何根据数量控制文本框的显示数量 [打印本页]

作者: Detona    时间: 2005-11-24 22:29
标题: [求助]如何根据数量控制文本框的显示数量
在名称中选中产品后,根据数量中的值自动显示下面文本框的数量

例如数量值为5,那么就显示数1-数5的文本框,数6-数10就隐藏

请帮我设计一下这段程序应该怎么实现

下面是我自己编的.....明显不行...

Private Sub 名称_AfterUpdate()
Dim textname As String
   i = Me.num.Value
   
       If Me.num= i Then

      For i = 1 To i
        textname = "t" + i
         Me.textname.Visible = True
       Next i
Else
      For i = 1 To i
        textname = "t" + i
        Me.textname.Visible = False
      Next i
     End If
End Sub
[attach]14368[/attach]


[此贴子已经被作者于2005-11-24 15:05:29编辑过]


作者: Detona    时间: 2005-11-24 22:59
我怎么上传不了文件..
作者: Detona    时间: 2005-11-24 23:08
好了..
作者: Detona    时间: 2005-11-25 16:14
顶一下..
作者: Detona    时间: 2005-11-25 16:40
我一开始只有这个笨方法,

Private Sub 名称_AfterUpdate()

If Me.num = 9 Then
Me.t1.Visible = True
Me.t2.Visible = True
Me.t3.Visible = True
Me.t4.Visible = True
Me.t5.Visible = True
Me.t6.Visible = True
Me.t7.Visible = True
Me.t8.Visible = True
Me.t9.Visible = True
Else
Me.t1.Visible = False
Me.t2.Visible = False
Me.t3.Visible = False
Me.t4.Visible = False
Me.t5.Visible = False
Me.t6.Visible = False
Me.t7.Visible = False
Me.t8.Visible = False
Me.t9.Visible = False
End If
End Sub

可是num的值是变化的,当值为其它的时候该怎么办呢,各位高手帮忙解决一下吧




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3