1、通过返回STRING类型,而不是STRUCT类型。
用'/'做为值之间的分隔符
//变更项目/变更后内容/变更前内容(包括编码MC)/变更字段名/变更前编码/变更后编码MC
CloseWithReturn(parent,ls_return)
CloseWithReturn(parent,ls_return)
2、接收窗口的代码
//变更项目/变更后内容/变更前内容(包括编码MC)/变更字段名/变更前编码/变更后编码MC
ls_return =Message.stringParm
if IsNull(ls_return) or ls_return = '' then return
//messagebox('',ls_return)
if IsNull(ls_return) or ls_return = '' then return
//messagebox('',ls_return)
li_pos = PosW(ls_return,'/')
if li_pos < 1 then return
ls_bgxm = LeftW(ls_return,li_pos - 1)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
li_pos = PosW(ls_return,'/')
if li_pos < 1 then return
ls_bghnr = LeftW(ls_return,li_pos - 1)
if li_pos < 1 then return
ls_bghnr = LeftW(ls_return,li_pos - 1)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
li_pos = PosW(ls_return,'/')
if li_pos < 1 then return
ls_bgqnr = LeftW(ls_return,li_pos - 1)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
li_pos = PosW(ls_return,'/')
if li_pos < 1 then return
ls_bgxmfield = LeftW(ls_return,li_pos - 1)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
if li_pos < 1 then return
ls_bgxmfield = LeftW(ls_return,li_pos - 1)
ls_return = RightW(ls_return,lenW(ls_return) - li_pos)
li_pos = PosW(ls_return,'/')
if li_pos < 1 then return
ls_bgqbm = LeftW(ls_return,li_pos - 1)
ls_bghbmmc = RightW(ls_return,LenW(ls_return) - li_pos)
if li_pos < 1 then return
ls_bgqbm = LeftW(ls_return,li_pos - 1)
ls_bghbmmc = RightW(ls_return,LenW(ls_return) - li_pos)