文件名称:订单管理代码
文件大小:3KB
文件格式:RAR
更新时间:2016-06-28 05:39:12
订单管理代码 www.e3p8.com
Private Sub Worksheet_Activate() Dim d, arr, brr(), s$, i, j, m Set d = CreateObject("Scripting.Dictionary") arr = Sheet2.[A1].CurrentRegion ReDim brr(1 To UBound(arr), 1 To 8) For i = 2 To UBound(arr)
【文件预览】:
订单管理代码
----模块2.bas(988B)
----模块1.bas(1KB)
----订单查询.txt(579B)
----出库统计.txt(731B)
----信息录入.txt(302B)
----配送清单.txt(731B)