StrVal( 0)).Appl圜urrentValues(currValue)Įnd If Next End If ' Set the connection information to ConInfo ' object so that we can apply the ' connection information on each table in the reportįor intCounter = 0 To - 1 StrVal = strParValPair(index).Split( " =") If InStr(strParValPair(index), " =") > 0 Then If intCounter > 0 And Trim(param) " " Then IntCounter = 0 End If End If ' If there are parameters in report and ' user has passed them then split the ' parameter string and Apply the values ' to their concurrent parameters. If intCounter = 1 Then If InStr((_Ġ).ParameterFieldName, ". ' As parameter fields collection also picks the selection ' formula which is not the parameter ' so if total parameter count is 1 then we check whether ' its a parameter or selection formula. ' Check if there are parameters or not in report. Dim mySubRepDoc As New _ĭim strParValPair() As String Dim strVal() As String Dim index As Integer Try ' Load the report ' Current parameter value object(collection) of crystal report parameters. ' Parameter value object of crystal report ' parameters used for adding the value to parameter. ' object of table Log on info of Crystal report Dim ConInfo As New CrystalDecisions. Optional ByVal param As String = " ") As Boolean ' Declaring variablesables Dim intCounter As Integer Dim intCounter1 As Integer ' Crystal Report's report document object Dim objReport As New _Ĭ Optional ByVal sSelectionFormula As String = " ", _
CRYSTAL REPORT VIEWER FOR IPAD CODE
Copy Code Friend Function ViewReport( ByVal sReportName As String, _
0 kommentar(er)
