我快要哭了

Question

我用文本框来显示数据库里的记录,由于记录太多而我只在窗口放了九个文本框,现在想实现翻页的功能,怎么办呀?我想每按一次PAGEDOWN就让记录往下读九个记录并将其值赋给文本框.而每按PAGEUP就让记录集往回走九个记录并赋给文本框,其间文本框通过重写TEXT对象来实现.我想通过RS.FIND来定位记录,也就是RS.FIND TEXT1(8).TEXT,来捕捉当前记录所在位置,可是老是实现不了哪位大哥能帮帮我忙啊不胜感激.如果能告诉我你的QQ更是很高兴和你交个朋友,我的QQ是50066427.

Answer 1

text并没错，主要是你没法把握9个纪录这个东西，请仔细检查一下，找好纪录的分界，你可以用个数组，当按键的时候先判断往上/往下是否够9个纪录，够的话先读到数组里，然后在给text。不够的话你看着处理吧

Answer 2

Dim CurrentRec as longprivate sub PAGEDOWN_click()
dim i as integerfor i=0 to 8
   currentrec = currentrec + 1
   if currentrec <= rs.recordcount then
      rs.absoluteposition = currentrec - 1
      text1(i) = rs.fileds(0)
   else
      text1(i) = ""
      PAGEDOWN.Enabled = false
   end if
next
end subprivate sub PAGEUP_click()
dim i as integercurrentrec = currentrec - 9
if currentrec <= 1 then
   currentrec = 1
   PAGEUP.enabled = false
end if
for i=0 to 8
   currentrec = currentrec + 1
   rs.absoluteposition = currentrec - 1
   text1(i) = rs.fileds(0)
nextend sub

Answer 3

up,用ADO的RECORDSET对象就可以实现你的全部需求~我这里有个例子，可以给你参考一下~怎么给你呀？？