[求助]如何根据数量控制文本框的显示数量

Detona

在名称中选中产品后，根据数量中的值自动显示下面文本框的数量

例如数量值为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

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

Detona

我怎么上传不了文件..

Detona

好了..

Detona

顶一下..

Detona

我一开始只有这个笨方法，

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的值是变化的，当值为其它的时候该怎么办呢，各位高手帮忙解决一下吧