SetParameters

Wijst een verzameling uitvoeringsparameters toe aan de huidige uitvoeringsrecord (koppeling tussen audittest en IDEA-tabel).

Compatibiliteit

Beschikbaar vanaf IDEA-versie 12.0

Syntaxis

SetParameters(parameters As Array)

Parameters

Opmerkingen

Als de uitvoeringsrecord niet beschikbaar is, wordt een uitzondering gegenereerd.

Als u de verzameling parameters wilt verkrijgen die als het argument van de methode moeten worden doorgevoerd, zijn de volgende opties beschikbaar:

• Gebruik de eigenschap .Parameters van het onderdeel Accessor van audittest. Uitvoeringsrecord is niet vereist. De waarde van de eigenschap .Waarde van elk item is leeg en moet worden ingesteld;
• Gebruik de eigenschap .Parameters van het onderdeel Uitvoerder van audittest. In dit geval is een uitvoeringsrecord vereist. De waarde van de eigenschap .Waarde van elk item bevat de huidige waarde van de uitvoeringsparameter;

Voorbeeld

Sub Main()
	Dim SA
	Dim atExecutor
	Dim atAccessor
	Dim parameters
	Dim paramCheckBox1
	Dim paramSingleList1
	Set SA = CreateObject("SmartAnalyzer.AutomationClient")
	atId = "f4d65220-77f1-5969-8943-59c7bd448460"
	tblName = "Sample-Weblog"
	' --- Obtain logical parameters from AT Accessor and set values ---
	Set atAccessor = SA.GetAT(atId)
	Set parameters = atAccessor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	paramCheckBox1.Value = True
	listValues = Array("Potato","Tomato","Cucumber")
	paramSingleList1.Value = listValues
	' ----------------- Create exec record ---------------------
	Set Tagging = SA.GetTagging(tblName)
	Tagging.SetTag "Comment", "SITE"
	Tagging.Save True
	' ----------------- Assign parameters to exec record ---------------------
	Set atExecutor = atAccessor.GetAtExecutor(tblName)
	atExecutor.SetParameters(parameters)
	' --- Obtain physical parameters from AT Executor and display values ---
	Set parameters = atExecutor.Parameters
	Set paramCheckBox1 = parameters.Get("smartCheckBox1")
	Set paramSingleList1 = parameters.Get("smartSingleList1")
	MsgBox"New value of chexbox1: " & paramCheckBox1.Value
	FOR EACH v IN paramSingleList1.Value
		MsgBox"Next new value of singleList1: '" + v + "'"
	NEXT
End Sub

Voorbeeld kopiëren  

Als u dit script uitvoert, wordt de volgende uitvoerreeks geproduceerd:

Nieuwe waarde van chexbox1: Waar

Volgende nieuwe waarde van singleList1: 'Potato'

Volgende nieuwe waarde van singleList1: 'Tomato'

Volgende nieuwe waarde van singleList1: 'Cucumber'