不显示删除回复显示所有回复显示星级回复显示得分回复急急急！！！就这么多分，全给了！ VC6.0中为什么给水晶报表设置SQL语句无效？？

lgy_come_on 2009-09-09 10:26:25

//实例化m_Application
m_Application.CreateInstance (__uuidof(Application));

pRecordset.CreateInstance(__uuidof(Recordset));

//获取m_Report变量， CrystalReport.rpt为通过向导建立的报表文件
m_Report = m_Application->OpenReport(_bstr_t("D:\\Report.rpt"));

//设置报表标题
m_Report->put_ReportTitle (_bstr_t("工程统计水晶报表"));

//设置数据库连接变量
CString filename;
filename.Format("%s\\config.ini", CatvgisApp::currentPath);

CFileFind fileFind;

CString server, dbname, pwd,user;
if(fileFind.FindFile(filename))
{
FileArchive fileStm;
fileStm.openRead(filename);
fileStm >> server >> dbname >> pwd >> user;
}

try
{
m_Report->Database->Tables->Item[1]->SetLogOnInfo((_bstr_t)server,(_bstr_t)dbname,(_bstr_t)pwd,(_bstr_t)user);
}

catch (_com_error err)
{
AfxMessageBox(err.Description()+err.ErrorMessage());
return -1;
}

//设置检索SQL命令
m_Report->put_SQLQueryString((_bstr_t)sql); //为什么传过来的sql参数无效

//将m_Report与报表控件连接
m_cry_view.SetReportSource(m_Report);

//不显示控件边框
m_cry_view.SetDisplayBorder (TRUE);

//显示报表工具条
m_cry_view.SetDisplayToolbar (TRUE);

//不显示报表左边的分组树
m_cry_view.SetDisplayGroupTree (FALSE);

//不显示控件边框
m_cry_view.SetDisplayBorder (TRUE);

//刷新数据
m_cry_view.Refresh();

//显示报表内容
m_cry_view.ViewReport();

...全文