例：別のオブジェクトへのフィールド値のコピー

この例では、TDConnection オブジェクトを使用して、Run（RN_USER_02）の［Build Number］フィールドから、Test Set（TC_USER_03）内の Test の［Last Ran On Build］フィールドに値をコピーする方法を示します。

Run_AfterPost イベント・プロシージャにコードを追加します。

Sub Run_AfterPost
        On Error Resume Next
        Dim tdc
        set tdc = TDConnection
        Dim TSFact 'As TestSetFactory
        Set TSFact = tdc.TestSetFactory
        Dim TstSet 'As TestSet
        Set TstSet = TSFact.Item(Run_Fields("RN_CYCLE_ID").Value)
        MsgBox TstSet.Name
        Dim TSTestFact 'As TSTestFactory
        Set TSTestFact = TstSet.TSTestFactory
        Dim TSTst 'As TSTest
        Set TSTst = _
	 TSTestFact.Item(Run_Fields("RN_TESTCYCL_ID").Value)
        MsgBox TSTst.Name
         
        TSTst.Field("tc_user_03").value = _
	 Run_Fields("RN_USER_02").Value
        TSTst.Post
         
        PrintError ("Run_AfterPost")
        On Error GoTo 0
End Sub