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 输入的char字符转为int类型,不是对应的ascall码,如何才能使之转换为对应ascall码?或者使输入的char字符可以正常与其他字符比较?
  • ¥15 devserver配置完 启动服务 无法访问static上的资源
  • ¥15 解决websocket跟c#客户端通信
  • ¥30 Python调用dll文件输出Nan重置dll状态
  • ¥15 浮动div的高度控制问题。
  • ¥66 换电脑后应用程序报错
  • ¥50 array数据同步问题
  • ¥15 pic16F877a单片机的外部触发中断程序仿真失效
  • ¥15 Matlab插值拟合差分微分规划图论
  • ¥15 keil5 target not created