VBA 客户信息管理系统，增加客户信息代码

点击第一个按钮新建数据，是想增加一条客户信息
首先会清空之前查询的信息，将文本框里的信息都置空
但这个For 循环里出错不知道是什么原因


Public Sub Userform_Initialize()

    Myarr = Array("客户编号", "客户名称", "客户类型")
    
End Sub

Private Sub 新建数据_click()

    Call 新建档案数据记录
    
End Sub

Sub 新建档案数据记录()

    Dim i As Integer
    
    For i = 0 To UBound(Myarr)
        Me.Controls(Myarr(i)).Value = ""
    Next
    
    客户编号.SetFocus
    
End Sub

img

img

Myarr 不是全局变量啊，要在函数外使用public声明一下

Public Myarr

如果不用全局变量，也可以通过参数传过去。但估计你设计在initialize时，那肯定还有别的过程要用这个array，那确实是声明成全局变量更合适方便，我以前把全局变量声明在模块里。