XDataLayout Class |
Namespace: Biolomics.BioCallback
The XDataLayout type exposes the following members.
Name | Description | |
---|---|---|
XDataLayout |
Initializes a new instance of the XDataLayout class.
|
Name | Description | |
---|---|---|
Clone |
Clones this instance.
| |
Equals | Determines whether the specified object is equal to the current object. (Inherited from Object.) | |
Finalize | Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection. (Inherited from Object.) | |
GetAllFields |
Gets all fields in the layout.
| |
GetHashCode | Serves as the default hash function. (Inherited from Object.) | |
GetType | Gets the Type of the current instance. (Inherited from Object.) | |
Id |
Gets the Layout Id.
| |
IsNothing |
Determines whether this instance is nothing.
| |
Key |
Gets the Layout Key.
| |
MemberwiseClone | Creates a shallow copy of the current Object. (Inherited from Object.) | |
Name |
Gets the layout Name.
| |
TableKey |
Gets the Table key.
| |
ToString |
Returns a String that represents this instance.
(Overrides ObjectToString.) |
Name | Description | |
---|---|---|
Equality |
Implements the operator = operator.
| |
Inequality |
Implements the operator <> operator.
|
Imports System Imports BioloMICS.BioCallback Imports BioloMICS.SharedClasses Public Class Program <STAThread()> Shared Sub Main() Dim c As New Program c.ChangeRecordDetails() End Sub ' Write sub functions here Public Sub ChangeRecordDetails() ' get the current connection Dim SqlCo As XConnection = Run.GetCurrentConnection() If SqlCo Is Nothing Then Return End If ' get the current layout Dim Layout As XDataLayout = Run.GetCurrentLayout() If Layout Is Nothing Then ' no current layout in a search page Return End If ' get the current table Dim TableDef As XTableDef = SqlCo.GetTableDef(Layout.TableKey) If TableDef Is Nothing Then ' should never happen Return End If ' load all records Dim Where As XWhere = XWhere.All ' use an empty FieldDefMap Dim FieldDefMap As New XFieldDefMap ' load the records Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where) For Each Record As XRecord In RecordMap ' change the record details, located in the record header Record.Details = "This is record #" & Record.Id.ToString Record.Save(False) Next ' load the records second methode Dim newRecordMap As New XRecordMap Run.LoadRecords(newRecordMap, TableDef.Key, FieldDefMap, Where) For Each Record As XRecord In newRecordMap ' change the record details, located in the record header empty string instead of old value Record.Details = String.Empty Record.Save(False) Next End Sub End Class