Private Sub Worksheet_Activate() Dim d, arr, brr(), s$, i, j, m Set d = CreateObject("scr ipting.Dictionary") arr = Sheet2.[A1].CurrentRegion ReDim brr(1 To UBound(arr), 1 To 8) For i = 2 To UBound(arr)
鑫路在线竞价订单管理系统 2.7更新日志:
1、短信模板添加数量；
2、加入可控是否显示填写QQ号码；【产品分类】-->【前台购买页面显示填写QQ】->【显示】
3、订单列表添加显示订购数量；
4、加入购买页面的自适应高度功能，避免因产品数量过多或客户浏览器设置字体过大，导致下单页面被遮挡，改进后页面全自动进行适应；注：需使用【产品分类】里的生成ifr a me代码方能生效（或设置ifr a me的ID为buyifr a me亦可生效）；
5、添加检测快递号是否重复使用；
