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 抖音咸鱼付款链接转码支付宝
  • ¥15 ubuntu22.04上安装ursim-3.15.8.106339遇到的问题
  • ¥15 求螺旋焊缝的图像处理
  • ¥15 blast算法(相关搜索:数据库)
  • ¥15 请问有人会紧聚焦相关的matlab知识嘛?
  • ¥15 网络通信安全解决方案
  • ¥50 yalmip+Gurobi
  • ¥20 win10修改放大文本以及缩放与布局后蓝屏无法正常进入桌面
  • ¥15 itunes恢复数据最后一步发生错误
  • ¥15 关于#windows#的问题:2024年5月15日的win11更新后资源管理器没有地址栏了顶部的地址栏和文件搜索都消失了