基思 - 关于代码的建议 [英] Keith - Advice on code
问题描述
嗨Keith，下面是我的代码隐藏方框和txt和按钮3
人，有没有更短的方式来写这个？
Private Sub Form_Current（）
如果LastName =" Franz"然后
Me！Supplier1.Visible = False
Me！Supplier2.Visible = False
Me！Supplier3.Visible = False
Me！Supplier4.Visible = False
Me！Supplier5.Visible = False
Me！Label56.Visible = False
Me .AddSupplierBuy.Visible = False
ElseIf LastName =" Davis"然后
Me！Supplier1.Visible = False
Me！Supplier2.Visible = False
Me！Supplier3.Visible = False
Me！Supplier4.Visible = False
Me！Supplier5.Visible = False
Me！Label56.Visible = False
Me .AddSupplierBuy.Visible = False
ElseIf LastName =" Von Patow"然后
Me！Supplier1.Visible = False
Me！Supplier2.Visible = False
Me！Supplier3.Visible = False
Me！Supplier4.Visible = False
Me！Supplier5.Visible = False
Me！Label56.Visible = False
Me .AddSupplierBuy.Visible = False
Else
Me！Supplier1.Visible = True
Me！Supplier2.Visible = True
Me！Supplier3.Visible = True
Me！Supplier4.Visible = True
Me！Supplier5.Visible = True
我！ Label56.Visible = True
Me.AddSupplierBuy.Visible = True
结束如果
End Sub
Tempy
***通过Developersdex发送 http://www.developersdex.com ***
Hi Keith, below is my code to hide the boxes and txt and button for 3
people, is there a shorter way to write this ?
Private Sub Form_Current()
If LastName = "Franz" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName = "Davis" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName = "Von Patow" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
Else
Me!Supplier1.Visible = True
Me!Supplier2.Visible = True
Me!Supplier3.Visible = True
Me!Supplier4.Visible = True
Me!Supplier5.Visible = True
Me!Label56.Visible = True
Me.AddSupplierBuy.Visible = True
End If
End Sub
Tempy
*** Sent via Developersdex http://www.developersdex.com ***
推荐答案
" Tempy" <一个******* @ devdex.com>在消息中写道
新闻：m％************* @ news.uswest.net ...
"Tempy" <an*******@devdex.com> wrote in message
news:m%*************@news.uswest.net...
嗨基思，下面是我的代码隐藏了3
人的方框和txt和按钮，有没有更短的方式来写这个？
Private Sub Form_Current（）
如果LastName =" Franz" ;然后
我！Supplier1.Visible = False
Hi Keith, below is my code to hide the boxes and txt and button for 3
people, is there a shorter way to write this ?
Private Sub Form_Current()
If LastName = "Franz" Then
Me!Supplier1.Visible = False
你可以使用或来包装它们：
如果LastName =" Franz"或LastName =" whatever" ......等等
问候，
基思。
PS - 最好不要将你的帖子发到个人：o）
You could wrap them all up using "or"s:
If LastName = "Franz" or LastName = "whatever" ... etc
Regards,
Keith.
PS - probably best not to address your postings to an individual :o)
" Tempy" <一个******* @ devdex.com>在消息中写道
新闻：m％************* @ news.uswest.net ...
"Tempy" <an*******@devdex.com> wrote in message
news:m%*************@news.uswest.net...
嗨基思，下面是我的代码隐藏了3
人的方框和txt和按钮，有没有更短的方式来写这个？
Private Sub Form_Current（）
如果LastName =" Franz" ;然后
我！Supplier1.Visible = False
我！Supplier2.Visible = False
我！Supplier3.Visible = False
我！Supplier4.Visible = False
我！Supplier5.Visible = False
我！Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName =" Davis"然后
我！Supplier1.Visible = False
我！Supplier2.Visible = False
我！Supplier3.Visible = False
我！Supplier4.Visible = False
我！Supplier5.Visible = False
我！Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName =" Von Patow"然后
我！Supplier1.Visible = False
我！Supplier2.Visible = False
我！Supplier3.Visible = False
我！Supplier4.Visible = False
我！Supplier5.Visible = False
我！Label56.Visible = False
Me.AddSupplierBuy.Visible = False
Else
我！Supplier1.Visible = True
我！ Supplier2.Visible = True
我！Supplier3.Visible = True
我！Supplier4.Visible = True
我！Supplier5.Visible = True
我！Label56.Visible = True
Me.AddSupplierBuy.Visible = True
结束如果
End Sub
Tempy
Hi Keith, below is my code to hide the boxes and txt and button for 3
people, is there a shorter way to write this ?
Private Sub Form_Current()
If LastName = "Franz" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName = "Davis" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
ElseIf LastName = "Von Patow" Then
Me!Supplier1.Visible = False
Me!Supplier2.Visible = False
Me!Supplier3.Visible = False
Me!Supplier4.Visible = False
Me!Supplier5.Visible = False
Me!Label56.Visible = False
Me.AddSupplierBuy.Visible = False
Else
Me!Supplier1.Visible = True
Me!Supplier2.Visible = True
Me!Supplier3.Visible = True
Me!Supplier4.Visible = True
Me!Supplier5.Visible = True
Me!Label56.Visible = True
Me.AddSupplierBuy.Visible = True
End If
End Sub
Tempy
你可以结构通过将它分成两个块 - 类似于：
Private Sub Form_Current（）
Select Case LastName
Case" Franz，Davis，Von Patow：ShowControls False
Case Else：ShowControls True
结束选择
End Sub
Private Sub ShowControls（blnVisible As Boolean）
Me！Supplier1.Visible = blnVisible
我！ Supplier2.Visible = blnVisible
Me！Supplier3.Visible = blnVisible
Me！Supplier4.Visible = blnVisible
Me！Supplier5.Visible = blnVisible
Me！Label56.Visible = blnVisible
End Sub
You could structure this by splitting it into two lumps - something like:
Private Sub Form_Current()
Select Case LastName
Case "Franz", "Davis", "Von Patow": ShowControls False
Case Else: ShowControls True
End Select
End Sub
Private Sub ShowControls(blnVisible As Boolean)
Me!Supplier1.Visible = blnVisible
Me!Supplier2.Visible = blnVisible
Me!Supplier3.Visible = blnVisible
Me!Supplier4.Visible = blnVisible
Me!Supplier5.Visible = blnVisible
Me!Label56.Visible = blnVisible
End Sub
Private Sub ShowControls（blnVisible As布尔）
Dim I as Integer
dim strFieldName as string
For I = 1 to 5
strFieldName ="供应商" &安培;我
我（strFieldName）.Visible = blnVisible
接下来我
我！Label56.Visible = blnVisible
结束子
Hank Reed
Private Sub ShowControls(blnVisible As Boolean)
Dim I as Integer
dim strFieldName as string
For I = 1 to 5
strFieldName = "Supplier" & I
Me(strFieldName).Visible = blnVisible
Next I
Me!Label56.Visible = blnVisible
End Sub
Hank Reed
这篇关于基思 - 关于代码的建议的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
