var i; var a = pMe.Pm("/Trend").GetVarExtensions(); var n = a.GetSize(1); for (i = 0; i < n; i++) { Pm.Debug(a.GetItem(i).TrendId); }
Dim i, a, n Set a = pMe.Pm("/Trend").GetVarExtensions() n = UBound(a) + 1 For i = 0 To n - 1 Pm.Debug a(i).TrendId Next