以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教一下窗口切换数据源的思路  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117046)

--  作者:swagger
--  发布时间:2018/4/4 17:43:00
--  请教一下窗口切换数据源的思路
在进入一个系统里面从数据源A加载表,点击订单1,弹出订单1窗口,加载数据源的订单表;点击订单2按钮,弹出一个订单2窗口,这个窗口的订单表从另外一个数据源B里面加载订单表;请教一下这个思路?
--  作者:有点甜
--  发布时间:2018/4/4 18:11:00
--  

设置两个数据源,或者动态添加数据源 http://www.foxtable.com/webhelp/scr/1944.htm

 

使用SqlTable表 http://www.foxtable.com/webhelp/scr/1907.htm

 


--  作者:swagger
--  发布时间:2018/4/4 20:14:00
--  
甜老师,那表代码呢,sqltable或者动态添加数据源,表代码无法保存怎么弄? 是不是在外部数据表添加数据源B的订单表然后在打开项目不加载表,然后点击订单2按钮才加载表这种办法?如果这样,就没有必要用sqltable或者动态添加数据源了,直接增加外部数据源和数据表就可以了
[此贴子已经被作者于2018/4/4 20:18:22编辑过]

--  作者:有点甜
--  发布时间:2018/4/4 20:30:00
--  

如果需要保存数据,编写一个保存按钮,如

 

Tables("窗口1_Table1").Save


--  作者:swagger
--  发布时间:2018/4/4 20:33:00
--  
以下是引用有点甜在2018/4/4 20:30:00的发言:

如果需要保存数据,编写一个保存按钮,如

 

Tables("窗口1_Table1").Save

我意思是表代码,譬如订单表的 currentchanged 

 If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开 
 Dim t As Table = Tables("窗口1_Table1") 
 With Tables("产品") 
 If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "产品编号 = " & .Current("产品编号") 
 End IF 

 End With 

End If
[此贴子已经被作者于2018/4/4 20:33:16编辑过]

--  作者:有点甜
--  发布时间:2018/4/4 20:37:00
--  

1、sqlTable,可以在窗口里面写代码;

 

2、如果动态添加的表格,可以在【全局表事件】写代码;

 

3、你也可以直接添加外部表,不加载即可。