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
详细错误信息：
未将对象引用设置到对象的实例。
加好友 
发短信
Post By：2018/9/20 10:13:00 [显示全部帖子]
