动态修改数据环境cursor1解决方案

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

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

SQL code

先设一个表（如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