主题：[求助]请帮忙看看这个错误信息是什么意思！请狐爸帮忙看看这个问题！

此主题相关图片如下：截图04.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:northwind20111222.rar

第一个问题：设计了一个订单管理窗口，一点应用打开该窗口就出现附件图中所示的错误信息，请帮忙看看问题出在哪里？ 第二个问题就是：在这个订单管理窗口中添加了一个table1，然后在窗口的afterload中添加了如下的代码来加载数据，但不知为何没有加载到数据，我确认是有附合条件的数据的，也请帮忙看看问题出在哪里： Dim t As Table = Tables("订单管理窗口_Table1") With Tables("订单表") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "订单号 = " & .Current("订单号") End If End With

请狐爸帮忙看看这个问题！

这个窗口的AfterLoad事件改为：

 

 

Dim t As Table = Tables("订单表关联窗口_Table1")
Dim t1 As Table = Tables("订单表关联窗口_Table2")

With Tables("订单表")
    If .Current Is Nothing Then
        t.Filter = "False"
        t1.Filter = "False"
    Else
        t.Filter = "订单号 = '" & .Current("订单号") & "'"
        t1.Filter = "订单号 = '" & .Current("订单号") & "'"
    End If
End With

 

建议你看看：

http://www.foxtable.com/help/topics/1284.htm