if Application.MainViews.ActiveView.GroupID = "" then asql = Application.MainViews.ActiveView.CurrentGroupSQL set obja = Application.GetNewConnection.Execute(asql) if obja.RecordCount > 0 then objA.Movefirst iCount = obja.RecordCount
for i = 0 to iCount -1 '???? ?? ??????? ? ?????? if i = 0 then FullIDs = FullIDs & "'" & objA.Fields("spk_propertyid").Value ' ????????? ??????? ?? else FullIDs = FullIDs & "','" & objA.Fields("spk_propertyid").Value ' ????????? ???? ????? ?????????? end if objA.MoveNext Next set obja = nothing
|