| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教一下窗口切换数据源的思路 (http://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的发言：
我意思是表代码，譬如订单表的 currentchanged 如果需要保存数据，编写一个保存按钮，如
Tables("窗口1_Table1").Save 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、你也可以直接添加外部表，不加载即可。 |