weixin_44676765 2022-08-05 17:33 采纳率: 50%
浏览 20
已结题

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

  • 写回答

2条回答 默认 最新

  • 请叫我问哥 Python领域新星创作者 2022-08-05 17:41
    关注

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

    Public Myarr

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 8月17日
  • 已采纳回答 8月9日
  • 创建了问题 8月5日

悬赏问题

  • ¥15 关于#matlab#的问题:在模糊控制器中选出线路信息,在simulink中根据线路信息生成速度时间目标曲线(初速度为20m/s,15秒后减为0的速度时间图像)我想问线路信息是什么
  • ¥15 banner广告展示设置多少时间不怎么会消耗用户价值
  • ¥16 mybatis的代理对象无法通过@Autowired装填
  • ¥15 可见光定位matlab仿真
  • ¥15 arduino 四自由度机械臂
  • ¥15 wordpress 产品图片 GIF 没法显示
  • ¥15 求三国群英传pl国战时间的修改方法
  • ¥15 matlab代码代写,需写出详细代码,代价私
  • ¥15 ROS系统搭建请教(跨境电商用途)
  • ¥15 AIC3204的示例代码有吗,想用AIC3204测量血氧,找不到相关的代码。