巧用FieldCaculater合并图层
由于Union后相同字段并没有Union所以
Dim s as String
Dim s1 as String
s = CStr([CLASS])
s1 = CStr([CLASS_1])
if s1 <> "0" Then
s = s1
End if