标题: [问题求助] VBS字典问题 [打印本页]

---

作者: zss427607    时间: 2021-6-11 22:20     标题: VBS字典问题

各位老师，字典代码如下：

ArrSheetData数据数据：
ArrSheetData（1，1）=1:ArrSheetData（1，2）="张三1"
.......
ArrSheetData（61，1）=61:ArrSheetData（61，2）="张三61"

For i = 1 To 61
    If Len(ArrSheetData(i,1)) > 1 then
        Dic(Trim(Out_Arr(i,1))) = ArrSheetData(i,2)
    End If
Next
msgbox DIc.count  提示 ”1“，如果 msgbox Dic(Trim(Out_Arr(i,1)))，正常显示循环数据。

各位老师这是咋回事呀

---

作者: zz100001    时间: 2021-8-22 22:32

这一看就是没有redim
白注册了那么多年，问题都描述不清楚，继续哭吧

---

欢迎光临 批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2