LCFieldlist の Insert メソッド

このメソッドは、既存フィールドリストのインデックスで指定された位置に新しいフィールドを挿入します。

定義位置

LCFieldlist

構文

Set fieldNew = fldLstRecord. Insert (index, fieldName, dataType)

パラメータ

パラメータ	説明
index	Long、1 ～ (fldLst.FieldCount + 1) の値。新しいフィールドを挿入する位置の前のフィールドのインデックス番号です。インデックス番号がフィールドリストの現在のフィールド数 (+ 1) と同じ場合は、LCFieldlist.Append を使用するのと同じことになります。
fieldName	String 型。新しいフィールドの名前です。
dataType	Long。新しいフィールドのデータ型です。次のいずれかです。
	LCTYPE_INT
	LCTYPE_FLOAT
	LCTYPE_CURRENCY
	LCTYPE_NUMERIC
	LCTYPE_DATETIME
	LCTYPE_TEXT
	LCTYPE_BINARY
	LCTYPE_FIELDLIST
	LCTYPE_CONNECTION

例

Option Public
Option Explicit
Uselsx "*lsxlc" 
Sub Initialize
  Dim fldLstRecord As New LCFieldList
  Dim fld As New LCField (LCTYPE_TEXT)
  Dim ref As LCField
  Dim text As String
  ' There are a number of ways to build a fieldlist
  ' Append will add a field to a list given a type
  Set ref = FldLstRecord.Append ("ACCOUNTMANAGER", LCTYPE_INT)
  Set ref = FldLstRecord.Append ("COMPANYID", LCTYPE_INT)
  ' Insert is like Append but the position
  ' within the fieldlist must be specified
  Set ref = FldLstRecord.Insert (1, "COMPANYADDRESS", LCTYPE_TEXT)
  ' CopyField will add a field to a list
  ' using an existing field as a template
  fld.Flags = LCFIELDF_KEY
  Set ref = FldLstRecord.CopyField (1, fld, "CONTACTNAME")
  ' IncludeField will add an existing field to a list,
  ' making it part of the list. in this case, 'fld'
  ' becomes a reference into the fieldlist
  fld.Flags = 0
  Call FldLstRecord.IncludeField (3, fld, "COMPANYCITY")
  text = ""
  Forall fieldname In FldLstRecord.Names
    If Text = "" Then text = fieldname Else text = text + ", " + fieldname
  End Forall
  Print "The field list is: " & text
End Sub

出力例

The field list is: 
CONTACTNAME, COMPANYADDRESS, COMPANYCITY, ACCOUNTMANAGER, COMPANYID