Crystal Report的setdatasource出错

Dim   drw   As   System.Data.DataRow  
   
                  'dstCardReport.  
                  drw   =   mdlReaderQuery.dstReader.Tables(0).Rows(mdlReaderQuery.intIndex)  
   
                  Dim   netTable   As   DataTable   =   mdlReaderQuery.dstReader.Tables(0).Clone  
   
                  netTable.TableName   =   "cardreport"  
                  dstCardReport.Tables.Add(netTable)  
   
                  dstCardReport.Tables("cardreport").Rows.Add(drw.ItemArray)  
   
                  crCardReport.SetDataSource(dstCardReport.Tables("cardreport"))  
                  GetTextObject   =   crCardReport.ReportDefinition.ReportObjects.Item("txtName")           '写入CrasalReport  
                  GetTextObject.Text   =   dstCardReport.Tables("cardreport").Rows(0).Item("o_xm")  
  结果报下面的错  
  未处理的“CrystalDecisions.CrystalReports.Engine.InvalidArgumentException”类型的异常出现在   crystaldecisions.crystalreports.engine.dll   中。  
   
  其他信息:   文件   F:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/temp_987fd54d-8608-41b4-8148-19da479b5705.rpt   内出错：  
  无效表号。  
  crCardReport是一个水晶报表实例，这是怎么回事啊，请高手帮帮忙啊！

问题点数： 50、回复次数： 2

1楼 
crCardReport.SetDataSource(dataset不是datatable)

2楼 
测试通过没有问题:  
   
   
                  InitDataAdapter("select   *   from   t1",   Adapter1,   DataSet1,   "t1")  
   
                  Dim   drw   As   System.Data.DataRow  
   
                  'dstCardReport.  
                  drw   =   DataSet1.Tables(0).Rows(1)  
   
                  Dim   netTable   As   DataTable   =   DataSet1.Tables(0).Clone  
   
                  netTable.TableName   =   "cardreport"  
                  DataSet1.Tables.Add(netTable)  
   
                  DataSet1.Tables("cardreport").Rows.Add(drw.ItemArray)  
   
                  Dim   dry1   As   New   CrystalReport1  
                  dry1.SetDataSource(DataSet1.Tables("cardreport"))  
                  Dim   GetTextObject   As   CrystalDecisions.CrystalReports.Engine.TextObject  
                  GetTextObject   =   dry1.ReportDefinition.ReportObjects.Item("text4")           '写入CrasalReport  
                  GetTextObject.Text   =   DataSet1.Tables("cardreport").Rows(0).Item("topic")  
                  CView1.ReportSource   =   dry1