[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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))),正常显示循环数据。

各位老师这是咋回事呀

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

TOP

返回列表