public class XOField : XField

Public Class XOField
	Inherits XField

Imports System
Imports BioloMICS.BioCallback
Imports BioloMICS.SharedClasses
Imports Biolomics.Utility.DatabaseConstants

Public Class Program

    <STAThread()>
    Shared Sub Main()
        Dim program As New Program
        program.ChangeField()
    End Sub

    '    Write sub functions here
    Public Sub ChangeField()
        '    get the current connection
        Dim SqlCo As XConnection = Run.GetCurrentConnection()
        If SqlCo Is Nothing Then
            Return
        End If

        '    get a table from its User name
        Dim TableDef As XTableDef = SqlCo.GetTableDefByUserNameEng("Your_Table_Name")
        If TableDef Is Nothing Then   '    may happen if that table doesn't exist
            Return
        End If
        '    load a Field from that table
        Dim FieldDefMap As New XFieldDefMap
        Dim FieldDef As XFieldDef = SqlCo.GetFieldByDBName("Your_O_Field_name", TableDef.Key)
        If FieldDef Is Nothing Then   '    that field doesn't exist
            Return
        End If
        FieldDefMap.Add(FieldDef)

        '    load the "Ecolint" record
        Dim Where As XWhere = XWhere.Eq(StaticFields.id, "12")
        Dim ParentRecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where)
        If ParentRecordMap.Count <> 1 Then  '    no "Ecolint" or more than one !
            Return
        End If
        '    get the parent record
        Dim ParentRecord As XRecord = ParentRecordMap.GetItemByIdx(0)

        '    get the parent path
        Dim ParentOField As XOField = TryCast(ParentRecord.Fields(FieldDef.Key), XOField)
        If ParentOField Is Nothing Then
            Return
        End If
        Dim ParentPath As vector.VectorOfInteger = ParentOField.NumPathIdList
        '    add the parent ID to that path
        ParentPath.Add(ParentRecord.Id)

        '    load all records with name starting with "Ecol", but don't reload the parent record
        Where = XWhere.StartWith(StaticFields.name, "Ecol").And_(StaticFields.id, XWhere.OperationEnum.NE, ParentRecord.Id)
        Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where)

        For Each Record As XRecord In RecordMap
            Dim Field As XOField = TryCast(Record.Fields(FieldDef.Key), XOField)
            If Field Is Nothing Then   '    this field doesn't exist or is not a O-Field
                Continue For
            End If

            '    copy the result into the field value. Note that the ParentPath vector is cloned internaly
            Field.NumPathIdList = ParentPath

            Record.Save(False)
        Next

    End Sub

End Class