‘***********************************************
‘函数名：splitaddress
‘作 用：把字符串变成select
‘参 数：addressstr —-字符串
‘返回值：select里面的原素
‘***********************************************
function splitaddress(addressstr)
if addressstr=”” then
exit function
else
Transactions=split(addressstr,”|”)
for i=0 to ubound(Transactions)
splitaddress=splitaddress& “”&Transactions(i)&””&chr(10)
next
end if
end function