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

此示例显示如何使用 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