public class XTField : XField

Public Class XTField
	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_T_Field_name", TableDef.Key)
        If FieldDef Is Nothing Then   '    that field doesn't exist
            Return
        End If
        FieldDefMap.Add(FieldDef)

        '    load all records
        Dim Where As XWhere = XWhere.Eq(StaticFields.id, 6)
        Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where)

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

            '    value        Meaning
            '        0        Unknown
            '        1        State A
            '        2        State B
            '        3        States A & B
            '        4        State C
            '        5        State A & C
            '        6        States B & C
            '        7        State A, B & C
            '        8        State D
            '        9        States A & D
            '        10        States B & D
            '        11        States A, B & D
            '        12        States C & D
            '        13        States A, C & D
            '        14        States B, C & D
            '        15        States A, B, C & D

            '    add state A if State B is absent
            If (Field.Value And XTField.TFieldStateEnum.B) <> 0 Then
                Continue For '    State B is present: do nothing
            End If
            '    here State B is absent: add State A
            Field.Value = Field.Value Or XTField.TFieldStateEnum.A

            '    to remove State C, use this code:
            'Field.Value = Field.Value And XTField.TFieldStateMaskEnum.Not_C

            Record.Save(False)
        Next

    End Sub

End Class