idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
改成
idx = CInt(max.Substring(lb.Length,3)) + 1 '获得最大编号的后三位顺序号,并加1
加好友 
发短信
Post By：2014/4/22 17:01:00 [显示全部帖子]
