不知各位有何良策！关于data控件

Question

加一句"data1.refresh",改为：Sub setlabel2(sendtoform2 As String, sendsinger As String)
Data1.RecordSource = "select * form tab1 where 歌手='蔡琴'"
Data1.Recordset.MoveFirst
Text1.DataField = sendtoform2 'sendtoform2="曲目"
data1.refresh
Label3.Caption = Text1.Text
Data1.Recordset.MoveNext
end sub

Answer 1

你的
Data1.Recordset.MoveNext
有啥用？？？

Answer 2

Sub setlabel2(sendtoform2 As String, sendsinger As String)Data1.RecordSource = "select * form tab1 where 歌手='蔡琴'"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Data1.recordset.eof
   Text1.DataField = sendtoform2 'sendtoform2="曲目"
   text1.text=text1.text + Data1.recordset(sendtoform2)
   data1.recordset.movenext
loop
    Label3.Caption = Text1.TextEnd sub按我的理解，恐怕是把所有 蔡琴的曲目（不止一首）输入到Text框吧？这样应该不成问题

Answer 3

不好意思，错了。
Sub setlabel2(sendtoform2 As String, sendsinger As String)Data1.RecordSource = "select * form tab1 where 歌手='蔡琴'"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.recordset.eof  '应该是Not
  Text1.DataField = sendtoform2 'sendtoform2="曲目"
  text1.text=text1.text + Data1.recordset(sendtoform2)
  data1.recordset.movenext
loop
    Label3.Caption = Text1.TextEnd sub

Answer 4

其实已经解决拉
大家看这个问题？我想让查询到的记录分页显示，可以翻页，请各位高手指点一个比较好的方法。分数不多啦。(bamboosee)