让然后我把oen这个方法放到一个函数中,
Function UD_Flex_SelectInTree ( obj, parentValue, childValue, ojbName )
if IsNull( childValue ) then
BF_INT_Select obj, parentValue, ojbName
On Error Resume Next
obj.Open parentValue
On Error GoTo 0
Err.Clear
else
BF_INT_Select obj, parentValue, ojbName
On Error Resume Next
obj.Open parentValue
On Error GoTo 0
Err.Clear
BF_INT_Select obj, parentValue&">"&childValue, ojbName
end if
End Function