dim pQueryFilter as iqueryfilter
dim pfeaturelayer as ifeaturelayer
set pfeaturelayer = map.layer(i)
set pqueryfilter = new queryfilter
pqueryfilter.wherecaluse = "[字段名] like '%" & [变量] & "'%"
dim pfeaturecursor as ifeaturecursor
set pfeaturecursor = pfeaturelayer.search(pqueryfilter,false)
dim pfeature as ifeature
set pfeature = pfeaturecursor.next
do while not pfeature is nothing
....循环每个feature
set pfeature = pfeaturecursor.next
loop