Foxtable(狐表)用户栏目专家坐堂 → 未将对象引用设置到对象的实例。


  共有1941人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
yetle
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
未将对象引用设置到对象的实例。  发帖心情 Post By: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
详细错误信息:
未将对象引用设置到对象的实例。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部