DO CASE

　　CASE thisform.myOption.option1.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數量;

　　FROM 外匯數據!rate_exchange INNER JOIN 外匯數據!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱 = "日元";

　　INTO TABLE rate_ry.DBF

　　CASE thisform.myOption.option2.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數量;

　　FROM 外匯數據!rate_exchange INNER JOIN 外匯數據!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱 = "美元";

　　INTO TABLE rate_my.DBF

　　CASE thisform.myOption.option3.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數量;

　　FROM 外匯數據!rate_exchange INNER JOIN 外匯數據!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱 = "歐元";

　　INTO TABLE rate_oy.DBF

　　ENDCASE

　　***********命令按鈕command2(退出)的Click事件代碼如下************

　　thisform.release