Tables("售后客户档案_售后客户档案Table1").fill("SELECT * From {历史进店记录}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table1").AllowEdit = True

Tables("售后客户档案_售后客户档案Table2").fill("SELECT * From {售后客户档案}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table2").AllowEdit = True

这是售后客户档案 afterload里的代码    红色部分放在上面 

在售后客户档案里 有一个窗口 "售后客户档案Table2"  里的currentchanged 有一段代码

If forms("售后客户录入").opened  Then
    Dim t As Table = Tables("售后客户录入_Table1")
    Dim u As Table = Tables("售后客户档案_售后客户档案Table1")
    With Tables("售后客户档案_售后客户档案Table2")
        If .Current Is Nothing Then
            t.Filter = "False"
            u.filter = "False"
        Else
            t.filter = "底盘号 = \'" & .Current("底盘号") & "\'"
            u.filter = "底盘号 = \'" & .Current("底盘号") & "\'"
        End If
    End With
Else
    If forms("售后客户档案").opened Then
        Dim u As Table = Tables("售后客户档案_售后客户档案Table1")
        With Tables("售后客户档案_售后客户档案Table2")
            If .Current Is Nothing Then
                u.filter = "False"
            Else
                u.filter = "底盘号 = \'" & .Current("底盘号") & "\'"
            End If
        End With
    End If
End If

如果刚才 售后客户档案 afterload里的代码    红色部分放在下面  如这样

Tables("售后客户档案_售后客户档案Table2").fill("SELECT * From {售后客户档案}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table2").AllowEdit = True

Tables("售后客户档案_售后客户档案Table1").fill("SELECT * From {历史进店记录}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table1").AllowEdit = True

打开售后客户档案  就会出现这个错误，如果放在上面则不会有这情况

此主题相关图片如下：未命名.jpg

请问是什么原因   另外  售后客户档案_售后客户档案Table1   如果不在afterload里 用fill填充

而用 控件自带的 select * from {}   也不会出现这个错误

求解~~~~~~~~~~~~~~~~~~

这就奇怪了 也就是说 我生成了table2后  currentchange里的代码就执行啦。。。

不等afterload里代码执行完 就执行currentchange里的了？？

求解

你可以在代码的适当的位置插入：

For Each cl As Col In CurrentTable.Cols
    Output.Show(cl.Name)
Next

看看列名都是些什么。。。有没有“底盘号”列。

用MessageBox放在Filter的前面，提示后先不要关闭提示框，再检查一下到底生成这个列没有。