***各位有空帮忙：产生一个连续的4位数怎么写？*** 谢谢！

每次保存或者更新时，产生从 0001到7000的连续的数字

解决方案 »

  1.   

    Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
      

  2.   

    这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限
      

  3.   

    msgbox format(1+9999*rnd(),"0000")
      

  4.   

    或者
    msgbox format(1+int(9999*rnd()),"0000")
      

  5.   

    如果是这样，用程序来检查这个值。最好做一个对应的数字字段(long)ID,每次用ID的最大值加1，再转成相应字符：rs.fields("strID") = format(rs.fields("ID"), "0000")