'Class = "Customer"
Sub Class_Globals
Public CustomerID As String
Public CompanyName As String
Public Record As Map ' Key=FieldName, Value=FieldObject
End Sub
Public Sub Initialize
'Initialize the table "record"...
Record.Initialize
Record.Put("CustomerID",CustomerID)
Record.Put("CompanyName",CompanyName)
End Sub