- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请帮忙看看这个错误信息是什么意思！请狐爸帮忙看看这个问题！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15386)
-- 发布时间：2011/12/23 14:58:00
-- [求助]请帮忙看看这个错误信息是什么意思！请狐爸帮忙看看这个问题！
此主题相关图片如下：截图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
[此贴子已经被作者于2011-12-23 16:14:21编辑过]
-- 发布时间：2011/12/23 16:14:00
--
请狐爸帮忙看看这个问题！
-- 发布时间：2011/12/23 16:33:00
--
这个窗口的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