通过以下代码,在订单表中点击订单号来删选同一订单号的所有行。但在运行后,点击每一个订单号后先出现以下错误提示,然后才进行删选。不得其解。
在订单表中编写AfterSelChange事件代码:
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
If c.name="订单号" Then
e.Table.StartEditing()
Tables("订单").filter="[订单号] ='" & e.Table.Current("订单号") & "'"
Else
Tables("订单").filter=""
End If
运行后错误提示:
.NET Framework 版本:2.0.50727.8000
Foxtable 版本:2017.4.22.1
错误所在事件:订单,AfterSelChange
详细错误信息:
未将对象引用设置到对象的实例。