VFP 愛用者社區

[Abel]

請問可以在 runtime 時，動能加入 remote view 嗎 ？

在設計 form 時，已加入 dataenvironment 也有 cursor1，我用

with thisform.dataenvironment

.newobject ('cursor2','cursor')
.cursor2.cursorsource = 'hverf'
.cursor2.alias = 'hverf'
.cursor2.database = 'd:\vfp\local\dbf\SQL_local.dbc'
.cursor2.exclusive = .T.

endwith

結果它找不到，還出現要你 開啟 dbf 的對話框，可是在 除錯工具／局部變數 中
可以看到 cursor2 ，而且自行再加入一個 remote view 在 局部變數 中比對自建的
cursor2 相關的 property 都相同。

[garfield]

[syntech]

路過,我是SQLEXEC的愛好者....

[elleryq]

> 請問可以在 runtime 時，動能加入 remote view 嗎 ？

我以前幹過這事.
如果你堅持要用 dataenvironment 的話
在 addobject() 完之後,一定要先呼叫 dataenvironment.closetables() 關閉所有 cursor
然後呼叫 opentables() 再一次打開

在此的同時,grid 會受到最大影響,拉好的 columns 都會消失
因此 opentables 之後必須重新指定
此外 controls 的 control source 也都有可能出錯.

[Abel]

感謝 elleryq 兄的指正，經過測試如您所示，加上 closertables () ... 就行了，而 grid 全亂是想當然而的，
除非已存在的 grid 未指定 RecordSource , 當 opnetables () 後需再一一指定，說到這裡我想到，可以用一
種我未能記起的方法，快速的將您用 visual 表單控制項 所建的物件轉成程式碼，利用這樣的方式可以
1.該建好的都利用 visual 眼見方式建好 2.再轉成程式碼，加以小修改 3.opnetables () 後再 call 回就一切
如您所意 …
只是忘了那個 …對不起忘了，是否有那位大哥提醒一下，將解決方式整理如下

with thisform.dataenvironment
.closetables ()
.newobject ('cursor2','cursor')
.cursor2.cursorsource = 'hverf'
.cursor2.alias = 'hverf'
.cursor2.database = 'd:\vfp\local\dbf\SQL_local.dbc'
.cursor2.exclusive = .T. && 這行是多餘的
.opentables ()
endwith

thisform.newobject ('grd_hverh','Mygrid') && 只是這個 Mygrid 需先做好，還望大師指導
with thisform.grd_hverf
.recordsource = 1
.recordsource = 'hverf'
.visible = .T.
endwith

[elleryq]

你說的應該是 class browser 吧~