水晶报表使用CDO可以在内存中建立一个临时数据库，类似于VB的那个DataSet

本文链接：https://blog.youkuaiyun.com/phlexii/article/details/661557

本文探讨了在使用Crystal Reports时遇到的AddRow()方法类型不匹配错误，并提供了详细的示例代码来说明问题所在及尝试的解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//在水晶报表文件夹1.0下,使用前需要注册

#import "Cdo32.dll" no_namespace

ICrystalDataObjectPtr m_pCDO;

HRESULT hr1;
hr1= m_pCDO.CreateInstance("CrystalDataObject.CrystalComObject");
m_pCDO->AddField("Order ID",VT_BSTR);
m_pCDO->AddField("Company Name",VT_BSTR);
short st= m_pCDO->GetColCount();

USES_CONVERSION;//
SAFEARRAYBOUND pSab[1];
pSab[0].lLbound = 0;
pSab[0].cElements =2;

SAFEARRAY *psa;
psa = SafeArrayCreate(VT_BSTR,1,pSab);
BSTR *pBstr;
SafeArrayAccessData(psa, (void**)&pBstr);
*(pBstr) = SysAllocString(T2OLE("test1"));
*(pBstr+1) = SysAllocString(T2OLE("test2"));

_variant_t var;
VariantInit(&var);
var.vt = VT_ARRAY;
var.parray = psa;
try
{
HRESULT h1= m_pCDO->AddRows(var);
}
catch (_com_error e)
{
CString strComError;
strComError.Format("错误编号: %08lx/n错误信息: %s/n错误源: %s/n错误描述: %s",
  e.Error(),                  // 错误编号
  e.ErrorMessage(),           // 错误信息
  (LPCSTR) e.Source(),        // 错误源
  (LPCSTR) e.Description()); // 错误描述
AfxMessageBox(strComError);
}
SafeArrayUnaccessData(psa);
SafeArrayDestroy(psa);