专家坐堂-未将对象引用设置到对象的实例。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125115)

--  作者：yetle
--  发布时间：2018/9/20 10:13:00
--  未将对象引用设置到对象的实例。

If Forms("销售订单").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开

Dim b As Table = Tables("销售明细尺码数")
Dim c As Table = Tables("销售订单_Table4")
Dim d As Table = Tables("销售订单_Table2")
With d

If d.Current("款号") Is Nothing Then
c.Filter = "False"
b.Filter = "False"
Else
b.Cols("尺码信息").Combolist = DataTables("款式尺码").GetComboListString("尺码","[款号] = \'" & d.current("款号") & "\'")

b.Filter = "订单号 = \'" & d.Current("流水订单号")& "\'"
c.Filter = "款号 = \'" & d.Current("款号")& "\'"
End If
End With
End If

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2018.9.9.1
错误所在事件：销售订单明细,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。

--  作者：有点甜
--  发布时间：2018/9/20 10:19:00
--
If Forms("销售订单").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开


    Dim b As Table = Tables("销售明细尺码数")
    Dim c As Table = Tables("销售订单_Table4")
    Dim d As Table = Tables("销售订单_Table2")


    If d.Current Is Nothing Then
        c.Filter = "False"
        b.Filter = "False"
    Else
        b.Cols("尺码信息").Combolist = DataTables("款式尺码").GetComboListString("尺码","[款号] = \'" & d.current("款号") & "\'")


        b.Filter = "订单号 = \'" & d.Current("流水订单号")& "\'"
        c.Filter = "款号 = \'" & d.Current("款号")& "\'"
    End If

End If