标题: [数据库] 水晶报表，紧急求救！！！ [打印本页]

---

作者: 刺兔    时间: 2008-6-21 18:48     标题: 水晶报表，紧急求救！！！

以下程序运行后无错误，只是报表中不显示任何数据，明天要交论文了，请各位大虾帮帮忙！！

Dim m_Report As New CrystalReport1 '(这个CrystalReport1是你建立的报表的名称)
Dim m_Connection As ADODB.Connection '(建立一个ADO连接)
Dim adoRS As ADODB.Recordset
Private Sub Form_Load()
Dim SQL As String
Dim strConnect As String

' Create and bind the ADO Recordset object
Set m_Connection = New ADODB.Connection
Set adoRS = New ADODB.Recordset

' Open the connection
m_Connection.Open sqlconection '数据库连接公共字符串
SQL = "select * from [" & lesson.ss & "]"
adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic
m_Report.Database.SetDataSource adoRS '(动态设置报表数据源)
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport '(显示报表)
Screen.MousePointer = vbDefault

End Sub

---

作者: Nothing    时间: 2008-6-21 21:55

你直接用水晶报表控件试试，不要自定义水晶报表。
直接使用这个CrystalReport1试试

---

作者: 刺兔    时间: 2008-6-21 23:19

试了,还是什么都不显示,是不是报表的字段没定义好也会影响阿,可是我定义的字段名都是显示乱码

---

作者: Nothing    时间: 2008-6-22 23:39

你用的数据库是什么？乱码？这种问题在MySQL中到很常见。

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0