idx = CInt(max.Substring(12,4)) + 1 '获得最大订单编号的后四位顺序号,并加1
改成
idx = CInt(max.Substring(bh.length,4)) + 1 '获得最大订单编号的后四位顺序号,并加1