如何动态改变报表的SQL语句呢?

Question

VB自带的报表只能打印固定的内容吗?不能动态改变想打印的SQL语句吗?谢谢了.

Answer 1

可以动态构造SQL语句，比如窗体上代码：dim sql as string
dim s1 as string,s2 as stringsql="select * from tb where 1=1 "
if 条件1 then
    s1=" and f1='"& text1.text &"'"
end if
if 条件2 then
    s2=" and f2="& val(text1.text)
end ifsql=sql & s1 & s2
......
rs.open sql,cn,1,3
......
set rpt.datasource=rs
rpt.show'rpt是你的报表