主题：[求助]请教这段代码什么情况！

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，触发了这个事件，此时你没有table1，程序就报错了

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

 

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

 

求解

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

 

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

 

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

我也遇到过，跟你一样，先后顺序不同会报错。currentchange属性里写这样代码，最好带个判断列名称是否存在，否则容易报错

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