方框图用什么软件:这段程序在运算中在文本框中只能显示最后一条数据

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 09:36:39
For i = 1 To rs.RecordCount
Text1.Text = CStr(rs("yhm"))
rs.MoveNext
Next i
这段程序在运算中在文本框中只能显示最后一条数据,请问如何让第一条数据到最后一条数据在运算中依次实时显示在文本框中。
这样我试过了Text1.Text =Text1.Text & CStr(rs("yhm")) & vbcrlf 是可以输出全部但也是到最后才能看见,而不是循环运行的时候就实时看到
这只是程序的一个片段,在循环里还要有大量的运算,实际上运行的时候不会那么快我只是想知道当前核到那里了,如果有问题也可以知道在哪里断掉的

循环的过程那么快,你想一个个看到?太不敢相信了
你试用一个延迟程序来看!

RecordCount有时候不能正确返回所有记录数,如果你想看最后的记录可以这么做:rs.moveLast,text1.text=rs!yhm
你想看到所有记录用文本框不太好,可以用MSFlexGrid部件
这么做:Set DataGrid1.DataSource = rs.DataSource
这样看起来比较清楚