通过以下代码,在订单表中点击订单号来删选同一订单号的所有行。但在运行后,点击每一个订单号后先出现以下错误提示,然后才进行删选。不得其解。
在订单表中编写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.8000Foxtable 版本:2017.4.22.1错误所在事件:订单,AfterSelChange详细错误信息:未将对象引用设置到对象的实例。