2 つのフィールドリストが同じ LCField オブジェクトを参照するようにするには、CopyRef を使用してください。

定義位置

LCFieldlist

構文

Set fldListRecordNew = fldListRecord.Copy

パラメータ

パラメータ	説明
fldListRecord	LCFieldlist。コピーするフィールドリストです。

戻り値

値	説明
fldListRecordNew	LCFieldlist。fldListRecord オブジェクトのコピーです。

例

Option Public

Option Explicit

Uselsx "*lsxlc"

Sub Initialize

Dim olist As New LCFieldlist

Dim nlist As LCFieldlist

Dim ofield As LCField, nfield As Lcfield

Set ofield = olist.Append ("FirstName", LCTYPE_TEXT)

ofield.Text = "Chi Len"

Set nlist = olist.Copy

Set nfield = nlist.GetField (1)

Print "before update, original=" & ofield.Text(0) & ", copy=" & nfield.Text(0)

nfield.Text = "Cheiko"

Print "after update, original=" & ofield.Text(0) & ", copy=" & nfield.Text(0)

Call nlist.Setname(1, "FullName")

Print "The copy contains field named " & nlist.Names(0) _

&  " whose value is " & nfield.Text(0)

End Sub

出力例
before update, original=Chi Len, copy=Chi Len

after update, original=Chi Len, copy=Cheiko

The copy contains field named FullName whose value is Cheiko

用語集