分享此页面

# 示例：将字段值复制到另一个对象

此示例显示如何使用 TDConnection 对象从 Run (RN_USER_02) 的版本号字段将值复制到测试集 (TC_USER_03) 中“测试”的上次运行于版本字段。

将代码添加到 `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 全部查看本地帮助中心查看联机帮助中心后退在浏览器历史记录中后退前进在浏览器历史记录中前进删除突出显示的搜索项下一个主题转到下一个主题上一个主题转到上一个主题打印当前主题版本: