vb中 上一条 下一条 按钮 的实现 有错不解

本帖最后由 abc8023 于 2011-01-01 15:20:15 编辑

解决方案 »

  1.   

    看不出哪里错了，有没有引用DAO库
    Text1(i).SelText = Rs.Fields(i).Value & vbCrLf
      

  2.   

    1. 可能是当RS 不存在的时候,你去引用了rs.recordcount
    2.不要用Rs.Fields(i).Value,直接用Rs.Fields(i)
      

  3.   

    对了  还有  我引用的ssstab控件的  是不是会发生什么冲突啊
      

  4.   

    问题1: 你可以在with RS的下面直接加一句: DEBUG.PRINT .RECORDCOUNT看看到底有多少记录问题2:
    for i=0 to rs.Fields.Count -1Text1(i).Text =Rs.Fields(i).Valuenext i写法无误,你可以设置断点,在立即窗口中输入: DEBUG.PRINT RE.FIELDS(0).VALUE来测试该字段是否真的有值.
    但是我估计你可能是表的指针有误,比如你的表最后一行是空的,然后你上述内容是在一个循环+movenext的时候,总是显示最后一条空记录的内容,所以就变成没有了.