数据窗口返回不止一个值的处理及源代码

1、通过返回STRING类型，而不是STRUCT类型。

用'/'做为值之间的分隔符

//变更项目/变更后内容/变更前内容(包括编码MC)/变更字段名/变更前编码/变更后编码MC
CloseWithReturn(parent,ls_return)

2、接收窗口的代码

 

 

//变更项目/变更后内容/变更前内容(包括编码MC)/变更字段名/变更前编码/变更后编码MC

ls_return =Message.stringParm  
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)

li_pos = PosW(ls_return,'/')
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)

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)

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)