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

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

主题：未将对象引用设置到对象的实例。