如何在activereport报表中显示datagrid选中得多条纪录

Question

报表中添加了datacontrol控件
datagrid的得数据源是 Adodc1
在报表中显示datagrid1中所有纪录我用以下语句实现的
ActiveReport1.DataControl1.Recordset = Form1.Adodc1.Recordset但是在报表中显示datagrid1中选中的部分数据我不知道怎么实现
我这样写ActiveReport1.DataControl1.Recordset = Form1.DataGrid1.SelBooks
不对

Answer 1

ActRpt1.DataControl1.CursorLocation = ddADOUseClient
ActRpt1.DataControl1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User IDsa;pwd;Initial Catalog=Database;Data SourceServerName"
ActRpt1.DataControl1.Source = "SELECT * FROM Table where ...(選部分記錄)

Answer 2

但是我是要选择高亮显示的纪录
用where语句怎么写呀

Answer 3

dim varBmk as Variant
dim SqlWhere as string
For Each varBmk In DataGrid1.SelBooks    
    Rs.Book = varBmk       'rs和datagrid1綁定
    '關鍵字id
    SqlWhere=SqlWhere & rs.fields("id).value & ","
Next
SqlWhere=left(SqlWhere,len(SqlWhere)-1)
ActRpt1.DataControl1.Source = "SELECT * FROM Table where id in (" & SqlWhere & ")"