请问在一个窗口中有一个水晶报表和一些文本框,我根据文本框输入的内容能对水晶报表的数据源做变换吗?比如第一次输出大于100的数据,第二次输出小于100的数据,我对报表的数据源做改变,报没有这个报表。不知道什么原因If Not cxset.EOF Then '药品库中有数据
If Text1.Text > 100 Then
Reportrk.Database.SetDataSource cxset
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Reportrk
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
end if
End If
Else
MsgBox " 数据库中没有数据,不能进行统计!", 0, "提示信息"
End If
If Text1.Text > 100 Then
Reportrk.Database.SetDataSource cxset
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Reportrk
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
end if
End If
Else
MsgBox " 数据库中没有数据,不能进行统计!", 0, "提示信息"
End If
解决方案 »
- 200分求解!如何在WINDOWS下截获鼠标点击事件?
- 如何将一个字符串按照规定的长度输出?不足的在右边补空格。谢谢
- 鼠标经过 按钮由平面变变立体 怎么实现呀,简单吗?
- 请高手发言:下载网页时,声明api的urlmon.dll和inet控件的比较。
- 无锡某软件公司招聘
- 送分100分:如何在一个窗体中DATAGRID显示数据,一组文本框增加、修改、删除数据的问题
- 如何给程序打包?
- VB对于视频文件的操作
- 请问各位什么叫真正的面向对象……
- 如何获得拨号上网的动态ip,winsock的locallip只是本地局域的ip,我有两块网卡。
- VB常用资料
- Findnextfile and hide file
If Text1.Text > 100 Then
cxset.filter="某字段>100"
dim rst as new adodb.recordset
把cxset过滤后的数据给rst
然后把rst传给报表
Reportrk.Database.SetDataSource rst
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Reportrk
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
end if
End If
Else
MsgBox " 数据库中没有数据,不能进行统计!", 0, "提示信息"
End If