第一个问题:设计了一个订单管理窗口,一点应用打开该窗口就出现附件图中所示的错误信息,请帮忙看看问题出在哪里?
第二个问题就是:在这个订单管理窗口中添加了一个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