LCFieldlist の Copy メソッド

このメソッドは、LCFieldlist およびそのすべてのデータの複製コピーを作成します。LCFieldlist のフィールドもすべて複製されるため、2 つのフィールドリストが同じ LCField オブジェクトを参照することはありません。

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

定義位置

LCFieldlist

構文

Set fldListRecordNew = fldListRecord. Copy

パラメータ

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

戻り値

値	説明
fldListRecordNew	LCFieldlist。fldListRecordobject のコピーです。

例

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