# Re: 有一些问题

Posted by Ranma on January 22, 1999 at 09:51:10:

In Reply to: 有一些问题 posted by 小白痴 on January 22, 1999 at 08:17:53:

首先布置一个label1及command1
dim db as database
dim rs as recordset
form_load
set db=opendatabase(path)
set rs=db.openrecordset(table)
end sub
command1_click
rs.movefirst
do while not rs.eof
for i=0 to rs.fields.count-1
label1=label1 & rs.fields(i).value
next
label1=label1 & chr(13) & chr(10)
rs.movenext
loop
end sub
我只知道这种写法，有点粗浅，但应可达到你的要求

Follow Ups: