动态修改数据环境cursor1

[xudong2472]

在表单程序运行中，能否对表单的中的数据database进行动态修改？如能，应在何处编写什么代码？请高手指教。谢谢！

[sun8330]

用数据环境开表是最死板的做法,建议直接用程序开表,想怎么弄就怎么弄,非常方便

[xudong2472]

sun8330:你说的也是一个办法，但是，去掉数据环境后，应如何解决表单中组合框的数据来源问题。我是以某表的某字段为数据来源的值。请指教。

[sun8330]

你只要把表打开了，数据来源想怎么搞都可以，比如:
use c:\tablename in 0 share
然后表单.init程序
thisform.combo1.RowSourceType=2
thisform.combo1.RowSource='tablename'
就可以了，你可以测试一下

[xudong2472]

sun8330:谢谢你，明天我去试试。

[十豆三]

先设一个表（如temp1.dbf）为表单的数据环境，然后在想设定另一个表（如MY.DBF）为数据环境时，直接

select  *  from  my.dbf  into  dbf  temp1
或
select  *  from  my.dbf  into  cursor  temp1
即可。

加多个表：

WITH  THISFORM.DataEnvironment    
           .ADDOBJECT("MyCursor1","Cursor")  
           .MyCursor1.CursorSource="tmp.dbf"
           .ADDOBJECT("MyCursor2","Cursor")  
           .MyCursor2.CursorSource="tmp1.dbf"
           .CloseTables()  &&  关闭所有的表和与数据环境相关的视图  
           .OpenTables()    &&  打开所有的表和与数据环境相关的视图  
ENDWITH

我也建议不用数据环境，因为不用数据环境可以完全自己控制。

[xudong2472]

谢谢apple_8180!