以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  AfterLoad  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123583)

--  作者：yetle --  发布时间：2018/8/18 11:22:00 --  AfterLoad .NET Framework 版本：2.0.50727.3655 Foxtable 版本：2018.7.28.1 错误所在事件：窗口,销售订单,AfterLoad 详细错误信息： 未将对象引用设置到对象的实例。 AfterLoad: Dim tbl1 As Table=Tables("销售订单_table1") Dim tbl2 As Table=Tables("销售订单_table2") If Forms("销售订单").Opened Then    Tables("销售订单_table2").Filter = "[物供号] = \'" & tbl1.current("物供号") & "\'"    Tables("销售订单_table4").Filter = "[款号] = \'" & tbl2.current("款号") & "\'" End If

--  作者：有点蓝 --  发布时间：2018/8/18 11:29:00 --   http://www.foxtable.com/webhelp/scr/0445.htm Dim tbl1 As Table=Tables("销售订单_table1") Dim tbl2 As Table=Tables("销售订单_table2") If tbl1.current IsNot Nothing Then     Tables("销售订单_table2").Filter = "[物供号] = \'" & tbl1.current("物供号") & "\'"     If tbl2.current IsNot Nothing Then         Tables("销售订单_table4").Filter = "[款号] = \'" & tbl2.current("款号") & "\'"     End If End If