7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
FindControl("txt备注").Text = "ok"
MsgBox "pause"
Me.Controls("txt备注").Text = "ok2" '使用Controls("txt备注")会报错
'txt备注.Text = "ok"
End Sub
Function FindControl(ByVal AControlName As String) As VB.Control
Dim i As Long
For i = 0 To Me.Controls.Count - 1
If (Me.Controls(i).Name = AControlName) Then
Set FindControl = Me.Controls(i)
Exit Function
End If
Next i
End Function