IDtRecordsetUserData.UserData

Copy example

Class MyProvider: Object, IDtRecordsetProvider, IDtRecordsetUserData
    UserD: IXmlDomElement;
    
    Public Function Fetch: Array Of Variant;
        Var
            ResArray: Array[0..1, 0..10] Of Variant;
            i, j: integer;
        Begin
            For j := 0 To 10 Do
                For i := 0 To 1 Do
                    If i = 0 Then
                        ResArray[i, j] := "Code-" + j.ToString;
                    Else
                        ResArray[i, j] := Math.RandBetween(0, 100);
                    End If;
                End For;
            End For;
            Return ResArray;
    End Function Fetch;
    
    Public Function get_userData: IXmlDomElement;
        Begin
            Return UserD;
    End Function get_userData;

    Public Sub set_userData(value: IXmlDomElement);
        Begin
            UserD := value;
    End Sub set_userData;
    
End Class MyProvider;