本帖最后由 bcrun 于 2012-04-26 10:01:21 编辑

解决方案 »

  1.   

    很明显,文本文件有多个行,每个行多要去数据库里面对比一次,这样一个文件就需要一个循环.同时,数据库里面有有多个样本需要和文件里的某个行对比,这样又是一个循环.因为FIle1里面是多个文件,每个文件都要去对比,所以也有一个循环...For i = 0 To File1.ListCount - 1'file1里面的每个文件都要处理一次    open .... As #1        do while not eof(1)'文件每个行都要处理,又不知道有多少行,do loop
                Line Input #1, b
                移动到第一个记录
                for j=1 to recorderset.count'每个行都要和数据库里面的样本去对比...
                    if 找到 then...
                        输出 文件名
                    end if
                    移动到下一个记录
                next
            loop
    next 
      

  2.   

    额,在loop后面没有关闭文件...搞忘记了