以文本方式查看主题

-  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=109688)
--  作者：有点甜
--  发布时间：2017/11/17 10:45:00
--  

 那就循环每一个表，加载表数据

 

http://www.foxtable.com/webhelp/scr/1928.htm

 
--  作者：有点甜
--  发布时间：2017/11/17 11:02:00
--  
以下是引用ZJZK2015在2017/11/17 11:01:00的发言：
有点甜老师：
这个代码写在哪里？？谢谢

 

你可以做一个按钮，执行加载的代码；

 

你也可以写到表格的currentChanged事件。
--  作者：有点甜
--  发布时间：2017/11/17 11:15:00
--  
 CurrentTableChanged
--  作者：有点甜
--  发布时间：2017/11/17 14:23:00
--  

没看懂你的意思。判断是不是主表？

 

Dim nms() As String = {"表A","表B","表C","表D"}
Dim filt As String
If CurrentTable.Current Is Nothing Then
    Return
Else
    If array.indexof(nms, CurrentTable.name) >= 0 Then
        Dim dr As Row = CurrentTable.Current
        filt = "项目编号 = \'" & dr("项目编号") & "\'"
        For Each nm As String In nms
            With DataTables(nm)
                .LoadFilter = filt
                .Load()
            End With
        Next
    End If
End If
--  作者：有点甜
--  发布时间：2017/11/17 14:39:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0553.htm

 

http://www.foxtable.com/webhelp/scr/2631.htm

 
--  作者：有点甜
--  发布时间：2017/11/17 14:40:00
--  
 代码写到全局表的currentChanged事件去。
--  作者：有点蓝
--  发布时间：2017/11/18 8:44:00
--  
哪个窗口？哪个按钮？说明一下测试步骤
--  作者：有点蓝
--  发布时间：2017/11/18 15:51:00
--  
按钮代码

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim fil As String = "项目编号 = \'" & cmb.Value & "\'"
Dim nms() As String = {"表A","表B","表C","表D"}

For Each nm As String In nms
    With DataTables(nm)
        .StopRedraw
        .LoadFilter = fil
        .Load()
        .ResumeRedraw
    End With
Next