public class XGField : XField

Public Class XGField
	Inherits XField

Imports System
Imports BioloMICS.BioCallback
Imports BioloMICS.SharedClasses

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 G-Field from that table
        Dim FieldDefMap As New XFieldDefMap
        Dim FieldDef As XFieldDef = SqlCo.GetFieldByUserNameEng("Your_G_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.All
        Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where)

        For Each Record As XRecord In RecordMap
            Dim Field As XGField = TryCast(Record.Fields(FieldDef.Key), XGField)
            If Field Is Nothing Then   '    this field doesn't exist or is not a G-Field
                Continue For
            End If
            '    *****    G Field    *****
            For Each v As Double In Field.Values
                v += 0.2
            Next
            '    as we modify directly the value array, let the field know that it has been modified
            Field.IsModified = True
            '    you can also modify a single value, for example setting the last value to 123.4
            If Field.Values.Count > 0 Then
                Field.Value(Field.Values.Count - 1) = 123.4
            End If
            '    this code does the same:
            Field.Values.Last = 123.4

            Record.Save(False)
        Next
    End Sub

End Class