水晶报表数据传递的问题？？？

Question

我的水晶报表(crystalreport9.0)数据库字段来自三个表，传递数据的代码用一个sql查询语句来完成，由于没有经验，不知这样写对不对，请各位高手指点!
Dim capp As New CRAXDRT.Application
Dim carp As New CRAXDRT.Report
Dim CRXD As CRAXDRT.DatabaseFieldDefinitionPrivate Sub Command1_Click()
    dim sql as string     
    Set carp = capp.OpenReport(App.Path & "\BookInfo.rpt")
    sql="select * from Maintb,Detailtb,Detailtb1 where LOTNO='"&trim(txtLOTNO.text)&"'"
    rs=cn.exe(sql)
    carp.Database.Tables(1).SetDataSource rs
    carp.ParameterFields.GetItemByName("CR").AddCurrentValue (Text1) 
    CRViewer91.ReportSource = carp
    CRViewer91.ViewReport
End sub

Answer 1

怎么没人帮我这个忙啊？？？？
我的开发环境：VB6.0+Access+crystalreport9.0

Answer 2

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195585看这个FAQ。我的水晶报表(crystalreport9.0)数据库字段来自三个表，传递数据的代码用一个sql查询语句来完成，由于没有经验
//完全可以，它会自动接受recordset中间对应的名称和类型字断。

Answer 3

查询语句就是你的SQLSQL语句是需要你自己写的，OK?

Answer 4

都是写SQL语句，和水晶报表无关
你的SQL怎么写是你的问题

Answer 5

我就是不会写这个sql，请大家帮忙写一个格式出来，谢谢了!