dr = DataTables("地区设置").Find("名称 = '"& r("目的网点") &"'")
IF dr IsNot Nothing Then '找到
....
ELSEIF 没有找到
END IF