点击第一个按钮新建数据,是想增加一条客户信息
首先会清空之前查询的信息,将文本框里的信息都置空
但这个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