如何在運行時添加表到表單的數(shù)據(jù)環(huán)境
發(fā)布時間:2008-08-09 閱讀數(shù): 次 來源:網(wǎng)樂原科技
概述
表或視圖可以在運行時添加到 Visual FoxPro 表單中. 雖然 你可以用 USE 命令打開表, 但將其添加到表單的數(shù)據(jù)環(huán)境更好. 如果表單是設置為私有數(shù)據(jù)工作期, 則該表會只添加到當前數(shù)據(jù)工作期的數(shù)據(jù)環(huán)境中.
更多信息
逐步演示
用表單設計器創(chuàng)建一個新表.
設置表單的 DataSession 屬性為 2-私有數(shù)據(jù)工作期.
添加一個命令按鈕到表單, 并放入以下代碼到它的 Click 事件中:
WITH THISFORM.DataEnvironment
.ADDOBJECT("mycursor","cursor")
.mycursor.Database= SYS(2004)+"samples\data\testdata.dbc"
.mycursor.CursorSource="customer"
.CloseTables() && 關閉所有的表和與數(shù)據(jù)環(huán)境相關的視圖
.OpenTables() && 打開所有的表和與數(shù)據(jù)環(huán)境相關的視圖
ENDWITH
保存表單. 然后運行表單的兩個實例.
單擊表單的第一個實例上的命令按鈕, 但不要
單擊表單的第二個實例上的按鈕.
在調(diào)試窗口中打入:
_SCREEN.ACTIVEFORM.DataEnvironment.mycursor.CursorSource
當你在兩個表單間切換時, 注意調(diào)試窗口中的值的改變與活動的數(shù)據(jù)工作期有關. 表只在表單的第一個實例的數(shù)據(jù)環(huán)境中.