主题：MainTable一词不能放在窗口AfterLoad中吗？

用试用版做个上来看看，谢谢。

既然是afteropenprojiect事件，每次打开的是第一个表，是哪个表很清楚，何必非得绕弯路！

按你那样做已经是绕弯路，我1楼的问题只是想在窗口（设置成自动打开）中遍历一下当前表的所有列名而已啊，你教我用全局变量的呀。

退出后，重启就出错了。 光这样空循环就会出错：

 

加个判断算了：

 

If MainTable IsNot Nothing Then
    Dim cl As String
    For Each c As col In MainTable.cols
        cl = cl & c.name & "|"
    Next
    e.Form.Controls("Label1").Text = cl
End If

 

 

谢谢狐爸，不报错了，但也不能赋值。 还是用8楼的可以。

这样好点：

 

Dim t As Table = MainTable
If  t Is Nothing Then
    t = Tables("默认表")
End If
Dim cl As String
For Each c As col In t.cols
    cl = cl & c.name & "|"
Next
e.Form.Controls("Label1").Text = cl

最简单的办法，关闭自动打开，项目属性的切换主表后执行事件判断该窗口是否打开，否，opento（独立窗口直接open即可）打开到当前表，该代码无需判断表名，则应用于所有表，这样，就不会报错了，您原来的报错原因：所用的事件为项目已经打开，datatable和窗口已经生成，但table并未生成，引用当前主表（table）当然出错！