Crystal report 做的报表,为何刷新数据时需要提供连接信息?

Question

你要把代码写成如下的样子：
把它放在你刷新的代码里，dataset是你的数据源：
crysreport1 crp = new crysreport1();
crp.SetDataSource(dt.Tables[0]);
this.crystalReportViewer1.ReportSource = crp;

Answer 1

snof(雪狼):
我是用crystal report 開發工具刷新的
 HenanBoy(想飞的更高):
您是甚麼意思呢?

Answer 2

請問你在連接時輸入服務器等名稱後，選擇了
Trusted Connection的復選按鈕沒有。如果沒
有選擇一下再試。

Answer 3

Set mainReportTableCollection = Session("oRpt").Database.TablesFor Each Table in mainReportTableCollection
    DatabaseName=Table.LogOnDatabaseName
    For I =Lbound(DBInfosArr,2) to Ubound(DBInfosArr,2)
        if instr(1,UCase(DBInfosArr(1,I)),Ucase(DatabaseName),1)>0 then
            DSNName=DBInfosArr(0,I)
DBName=DBInfosArr(1,I)
UserID=DBInfosArr(2,I)
Pwd=DBInfosArr(3,I)
Table.SetLogonInfo cstr(DSNName), cstr(DBName), cstr(UserID), cstr(Pwd)
Exit for   
end if
    Next
Next
'************************************
'Set the Main Report's Parameters' value
set Params = Session("oRpt").Parameterfields  
For each Param in Params
    ParamType=Param.valuetype
    ParamName=GetParamName(Param.Name)
    ParamValue=Eval(ParamName)
    Select Case ParamType
       Case 7'Number
  Call Param.SetCurrentValue (dfVntToInt(ParamValue), 7)
       Case 8'Currency
          Call Param.SetCurrentValue (Cdbl(ParamValue), 8)
       Case 10'Date
          Call Param.SetCurrentValue (CDate(ParamValue), 10)
       Case 12'String
          Call Param.SetCurrentValue (CStr(ParamValue), 12)
    End Select
Next
set Params=nothing
'************************************
Set CRXSections = Session("oRpt").Sections 
For Each CRXSection In CRXSections 
'In each section, you get all the objects in the section.
Set CRXReportObjects = CRXSection.ReportObjects 
'You cycle through the objects. 
For Each CRXReportObject In CRXReportObjects 
'1---Text Object
'2---Fields Object
'3---Line
'4---Box
'Sub Report---5
    If CRXReportObject.Kind = 5 Then 
     Set CRXSubreportObj = CRXReportObject 
Set CRXSubreport = CRXSubreportObj.OpenSubreport
'************************************
'Set The Sub Reports Parameters'Value
Set Params=CRXSubreport.Parameterfields
For each Param in Params
    ParamType=Param.valuetype
    ParamName=GetParamName(Param.name)
    ParamValue=Eval(ParamName)
    if Instr(1,ParamName,"?Pm-")=0 then
Select Case ParamType
   Case 7'Number
      Call Param.SetCurrentValue (dfVntToInt(ParamValue), 7)
   Case 8'Currency
      Call Param.SetCurrentValue (CDbl(ParamValue), 8)
   Case 10'Date
      Call Param.SetCurrentValue (CDate(ParamValue), 10)
   Case 12'String
      Call Param.SetCurrentValue (CStr(ParamValue), 12)
End Select
    end if
Next
set Params=nothing
'************************************
Set subReportOneTablesCollection = CRXSubreport.Database.Tables
For Each Table in subReportOneTablesCollection
DatabaseName=Table.LogOnDatabaseName
For I =Lbound(DBInfosArr,2) to Ubound(DBInfosArr,2)
if instr(1,UCase(DBInfosArr(1,I)),Ucase(DatabaseName),1)>0 then
    DSNName=DBInfosArr(0,I)
DBName=DBInfosArr(1,I)
UserID=DBInfosArr(2,I)
Pwd=DBInfosArr(3,I)
Table.SetLogonInfo cstr(DSNName), cstr(DBName), cstr(UserID), cstr(Pwd)
Exit for   
end if
Next
Next
End If 
Next  
Next 

Answer 4

zhbname(赤澜) :兄弟,我用的版本是9.2 在连接数据库时没发现有Trusted Connection选项啊