Formulas怎样使用?
请举例说明

解决方案 »

  1.   


        Dim ss As New CRPT_lgty
        Dim sSQL As String
        Dim s As String
        sSQL = "Select * from sql离岗退养"
        s = "{sql离岗退养.年} = " & nSysYear & " AND {sql离岗退养.月}= " & nSysMonth
        MsgBox sSQL
        Set rsRPT = cnData.Execute(sSQL)
    '    rsRPT.Open sSQL, cnData, adOpenKeyset, adLockBatchOptimistic
    '    ss.DiscardSavedData = True
        ss.Database.SetDataSource rsRPT
        ss.RecordSelectionFormula = s
        
        CRViewer.ReportSource = ss
        CRViewer.ViewReport
    就是然来SQL语句的Where段,一定要将字段用{}包起来!
      

  2.   

    新增formula field->填上名称formula1->编辑formula text->依次选择fields, functions, operators.
    比如, {iTable.iFields} = Length(iTable.iString1 + iTable.iString2)
    上面用了3个fields. 1个function Length() 和1个operator +