IAdhocDataSourceObject.ParamValues

Copy example

Sub UserProc;
Var
    mb: IMetabase;
    Dashboard: IAdhocReport;
    DsObjs: IAdhocDataSourceObjects;
    i, j: Integer;
    DsObj: IAdhocDataSourceObject;
    ParamValues: IMetabaseObjectParamValues;
    ParamVal: IMetabaseObjectParamValue;
Begin
    // Get current repository
    mb := MetabaseClass.Active;
    // Get dashboard
    Dashboard := mb.ItemById("DASHBOARD_PARAMS").Bind As IAdhocReport;
    // Get dashboard data sources
    DsObjs := Dashboard.DataSourceObjects;
    // Look over data sources
    For i := 0 To DsObjs.Count - 1 Do
        DsObj := DsObjs.Item(i);
        // Get values of data source parameters
        ParamValues := DsObj.ParamValues;
        // Look over parameters values
        For j := 0 To ParamValues.Count - 1 Do
            ParamVal := ParamValues.Item(j);
            Debug.WriteLine(" - parameter: " + ParamVal.Name);
            Debug.WriteLine(" - value: " + ParamVal.Value);
        End For;
    End For;
End Sub UserProc;