每日一问，每日进步一点点，请大神帮忙指点代码中出现的错误，代码运行不起来，ad...

1291337649

UserForm4数据修改界面无法运行

3190496160

Private Sub UserForm_Initialize()
'定义数组变量存储各下拉列表的值
Dim cxtj1(8) As String
Dim cj1(5) As String
Dim yjlx1(2) As String

'为查询条件下拉列表赋值
cxtj1(0) = "车间"
cxtj1(1) = "产品编号"
cxtj1(2) = "产品名称"
cxtj1(3) = "工序名称"
cxtj1(4) = "适用压机类型"
cxtj1(5) = "压力值下限"
cxtj1(6) = "压力值上限"
cxtj1(7) = "模架号"
cxtj1(8) = "备注"
'为使用车间下拉列表赋值
cj1(0) = "一车间"
cj1(1) = "二车间"
cj1(2) = "三车间"
cj1(3) = "五车间"
cj1(4) = "七车间"
cj1(5) = "八车间"
'为使用情况下拉列表赋值
yjlx1(0) = "A"
yjlx1(1) = "B"
yjlx1(2) = "C"

'将数组值赋值给相应的复合框
cxtj.List = cxtj1
cxtj.ListIndex = 0
cj.List = cj1
cj.ListIndex = 0
yjlx.List = yjlx1
yjlx.ListIndex = 0

End Sub

3190496160

压装系统.rar (883.09 KB, 下载次数: 3)

2023-2-21 10:13 上传

点击文件名下载附件

3190496160

基础不牢，地动山摇，基地都还没打好，就在盖高楼了呗
最大的问题，定义的数组名称，跟控件名称一样，代码肯定是要出错的

1291337649

3190496160 发表于 2023-2-21 10:14
基础不牢，地动山摇，基地都还没打好，就在盖高楼了呗
最大的问题，定义的数组名称，跟控件名称一样，代码 ...

谢谢大神指点，主要是没有找到系统的学习方法，我现在都是通过代码应用去反过来学习语句逻辑。