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]