主题：同步加载子表

不能同步加载子表，请高手帮忙

项目收支窗口中有三张表，其中“投标立项”为主表，"投标收入"和"投标支出"为副本表，在表的click事件中写代码

表的click事件

If Forms("项目收支").opened Then
    If Tables("投标立项").current IsNot Nothing Then
        Tables("项目收支_投标收入").DataTable.LoadFilter = "项目名称 = '" & Tables("投标立项").Current("项目名称") & "'"
        Tables("项目收支_投标收入").DataTable.Load
        Tables("项目收支_投标支出").DataTable.LoadFilter = "项目名称 = '" & Tables("投标立项").Current("项目名称") & "'"
        Tables("项目收支_投标支出").DataTable.Load
    End If
End If

改成这样还是无效

If Forms("项目收支").opened Then
    If Tables("投标立项").current IsNot Nothing Then
        DataTables("投标收入").LoadFilter = "项目名称 = '" & Tables("投标立项").Current("项目名称") & "'"
        DataTables("投标收入").Load
        DataTables("投标支出").LoadFilter = "项目名称 = '" & Tables("投标立项").Current("项目名称") & "'"
        DataTables("投标支出").Load
    End If
End If

1、加入msgbox，看是否执行了你里面的代码；

2、你beforeLoad、afterLoad事件有没有写什么代码？

加载所有未加载的表

For Each dtn As DataTable In DataTables
    If DataTables.Contains(dtn) = False Then '如果表没有加载
        DataTables.Load(dtn) '加载表
    End If
Next

---------------------------
编译错误:类型“DataTable”的值无法转换为“String”。

错误代码：If DataTables.Contains(dtn) = False Then '如果表没有加载
---------------------------

1、无法知道哪些是没有加载的表；你可以用一个变量记录或者在表格里面记录。

2、如果你全部的外部表都要加载，参考 http://www.foxtable.com/webhelp/scr/1943.htm