String ls_newselect  \\定义一个string变量
is_oldselect = dw_1.Describe("DataWindow.Table.Select") \\获取dw_1所调用得表
OpenWithParm(w_query1,dw_1) \\打开窗口w_query1,并把dw_1数据窗口传入
ls_newselect = Message.StringParm \\接受传递得参数
if ls_newselect="Cancel" then Return \\如果传进来得参数='Cancel' 就返回

dw_1.Modify("datawindow.table.select = ~"" + ls_newselect + "~"")
dw_1.retrieve()\\显示调用传进来新表的数据

dw_1.setfocus()  
dw_1.Modify("datawindow.table.select = ~"" + is_oldselect + "~"") \\就数据窗口dw_1恢复原来