抽题的时候你并不一定要按序号抽呀.你可以在程序中用一个记录集打开这个题库表.按记录集中的每条记录的序号来抽题.这样你只要保证抽题的随机数不大于记录总数,就不会抽到空题了.

解决方案 »

  1.   

    可不可以考虑换个方法
    不理会序号连不连续,出题时先把整个记录集读出来,根据记录数产生一个随机数,然后MOVE到此条记录.dim i as long
    dim k as longi = rst.RecordCount   'rst代表记录集
    randomize
    for k = 1 to X        'X为准备出的题目的数量
        i = int(rnd*i) + 1
        rst.Move i
        '读出你需要的数据
    Next
      

  2.   

    下面这个想法你考虑一下:
    管理员删除的时间是少数,那么题的序号,你不要做成自增。
    在管理员删除的时候就将序号进行修改,这样就可以保证不会有不连续了啦!