主题：[求助]加载未加载表的问题

1,定义两个public变量集合ALLTABLES，INTABLES，

2,在beforeLoadOuterTable那里，加入代码

 

ALLTABLES.add(e.datatablename)

'记录所有表

 

Select Case e.DataTableName
    Case  "首页","用户信息","公司信息" '表A和表B无条件加载
        Intables.add(e.datatablename)

      '记录已经加载的表

    Case Else '其他所有表默认都不加载
        e.Cancel = True
    End  Select

3,新建一个函数MYLOAD,代码如下

 

For Each inTable As String In inTables
    alltables.remove(Intable)
Next
Dim sql,str As String
For Each Name As String In alltables
    'MessageBox.show(name)
    sql+ = "|" & name

Next
sql = sql.Substring(1) 
str = """" & sql & """"
'MessageBox.show(str)
'If DataTables.Contains("第一个表的名称") = False Then
DataTables.Load(str)
'End If

 

4,在afteropenproject在最后一行写以下代码或者在第一个打开的窗口里AFTERLOAD里写以下代码

 

Functions.AsyncExecute("MYLOAD")

 

都无法加载未加载的表，请问一下是哪里错了。。。。要怎么修改。谢谢。