这是我的代码。谢谢！

Sub runReport（）Dim crpPara如CRAXDRT.ParameterFieldDefinitions Dim crpPar如CRAXDRT.ParameterFieldDefinition Dim crxApp如新CRAXDRT.Application Dim crxDBField如CRAXDRT.DatabaseFieldDefinition Dim报告如新CRAXDRT.Report GetReportPath设置报告= grdApp.OpenReport（strReportPath）调用 SetDSN（Report，strDSN，strUserid，strPassword，strDatabase，AAAZ）使用crpPar Debug.Print .ParameterFieldName Select Case设置crpPara中每个crpPar的crpPara = Report.ParameterFields .ParameterFieldName Case" @lngGroupBy" Case" @lngGroup" Case" @strFilter " .SetCurrentValue Field2str（strFilter）案例" @strCodeType"案例" @strCaption" .SetCurrentValue Field2str（Me.Caption）案例" @Date" Dim strDate作为字符串.SetCurrentValue Field2str（strDate）案例" @ Date1" .SetCurrentValue Field2Date（Date ）案例" @ Date2" .SetCurrentValue Field2Date（Date）案例" @dSBDate"案例" @ReportFilterCluster" .SetCurrentValue Field2str（""）案例" @ strFilter0" .SetCurrentValue Field2str（m_strFilter0）案例" @ strFilter1" .S etCurrentValue Field2str（m_strFilter1）案例" @ strFilter2" .SetCurrentValue Field2str（m_strFilter2）案例" @strMassFilter"案例" @ strFilter3" .SetCurrentValue Field2str（m_strFilter3）案例" @ strFilter4" .SetCurrentValue Field2str（m_strFilter4）案例" @ strFilter5" .SetCurrentValue Field2str（m_strFilter5）案例" @ strFilter6" .SetCurrentValue Field2str（m_strFilter6）案例" @ strFilter7" .SetCurrentValue Field2str（m_strFilter7）案例" @ strFilter8" .SetCurrentValue Field2str（m_strFilter8）案例" @ strFilter9" .SetCurrentValue Field2str（m_strFilter9）案例" @ strFilter10" .SetCurrentValue Field2str（m_strFilter10）案例" @ strFilter11" .SetCurrentValue Field2str（m_strFilter11）案例" @strCode" .SetCurrentValue Field2str（strCode）案例" @lngGroup" .SetCurrentValue Field2Long（lngGroup）案例" @dDate" .SetCurrentValue Field2Date （日期）案例" @gstrITSfromHTD" .SetCurrentValue" HTD解决方案"案例" @Credit" .SetCurrentValue GetXMLName（" credit"）案例" @Credit" .SetCurrentValue GetXMLType（" Credit"）结束选择结束机智 h下一步设置crpPara =不使用CRViewer91 .ReportSource =报告'cryReport .ViewReport'.Zoom IIf（m_lngReportSize = 0，IIf（lngRepSize = 0，100，lngRepSize），m_lngReportSize）以

结束字幕

公共Sub DSN（作为报表的SourceReport，作为字符串的ByVal NewDSN，作为字符串的_ ByVal NewUserID，作为字符串的_ ByVal NewUserID，作为字符串的_ ByVal NewDatabase，作为字符串的ByVal NewServer）Dim strPath作为字符串Dim strODBC作为字符串Dim strDriverPath作为字符串 Dim strDriverName作为字符串出现在本地错误上GoIn errH Dim HK只要WinVersion =" Windows XP"，则HK = -2147483646'WIN XP Else HK = -2147483647'WIN VISTA End如果strPath =" SOFTWARE \ ODBC \ ODBC.INI \" ＆NewDatabase＆" \" strODBC =" SOFTWARE \ ODBC \ ODBC.ODBC.INI \ ODBC数据源\" Dim crpPara如CRAXDRT.ParameterFieldDefinitions Dim crpPar如CRAXDRT.ParameterFieldDefinition Dim crxApp如新CRAXDRT.Application Dim crxDBTField如CRAXDRT.DatabaseFieldDefinition Dim crxDBT如 CRAXDRT.DatabaseTable Dim crxDB作为CRAXDRT.DatabaseTable Dim crxDBTs作为CRAXDDRT.DatabaseTables设置crpPara = SourceReport.ParameterFields SourceReport.DiscardSavedData SourceReport.EnableParameterPrompting = False对于SourceReport.Database.Tables中的每个crxDB crxDB.Co nnectionProperties.DeleteAll crxDB.SetLogOnInfo NewDSN，NewDatabase，NewUserID，NewPassword'MsgBox Left（crxDB.Location，Len（crxDB.Location）-2）crxDB.Location = Left（crxDB.Location，Len（crxDB.Location）-2）下一页 退出子错误：MsgBox错误描述＆""和err.Number，vbInformation，"错误"恢复下一个退出子

End Sub