CasewareDocs

SmartDuplicate

Properties:

Example

Sub Main() 
Dim oParameters As Object 
Dim oDuplicate As Object 
Dim sValues(5) As String 
Dim s As String 

	'Get parameters from context. 
	Set oParameters = SmartContext.Parameters 

	s = "The SmartDuplicate control delivers" & Chr(13) 

	If oParameters.contains("SmartDuplicate1") Then 
		Set oDuplicate = oParameters.Item("SmartDuplicate1") 

		sValues(1) = oDuplicate.Value1 
		sValues(2) = oDuplicate.Value2 
		sValues(3) = oDuplicate.Value3 
		sValues(4) = oDuplicate.Value4 
		sValues(5) = oDuplicate.Value5 

		For i = 1 To 5 
		If sValues(i) > "" Then 
			s = s & CStr(i) & ". value: " & sValues(i) & Chr(13) 
		End If 
		Next 
	End If 

	MsgBox s 

	Set oDuplicate = Nothing 
	Set oParameters = Nothing 
End Sub