このページを共有

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

この例では、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

https://admhelp.microfocus.com ALM 8942
検索結果の改善のヒント... ALM ヘルプセンター ALM ヘルプセンター ALM ヘルプ 17.0 すべてローカル・ヘルプセンターの表示オンライン・ヘルプセンターの表示戻るブラウザ履歴で元に戻る進むブラウザ履歴で前に進む検索の強調表示を解除次のトピック次のトピックに移動前のトピック前のトピックに移動現在のトピックを印刷バージョン: