主题：相关数据加载问题

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

 

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

 

 

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

 

你也可以写到表格的currentChanged事件。

 CurrentTableChanged

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

 

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

参考

 

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

 

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

 

 代码写到全局表的currentChanged事件去。