vb的datareport 可以用ado 对象与数据库连接,
dim rs as recordset
dim sql as string
sql="select * from tablename where "
set rs=new recordset
rs.open sql, conn,3,1
if not(rs.bof and rs.eof) then
with datareport
.datasource=rs
.show
end with
end if
dim rs as recordset
dim sql as string
sql="select * from tablename where "
set rs=new recordset
rs.open sql, conn,3,1
if not(rs.bof and rs.eof) then
with datareport
.datasource=rs
.show
end with
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货