If DataTables("应收交易流水").DataRows.Count>=0 Then
If fl.Checked=False Then
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("应收交易流水").FindRow(dr)
If wz >=0 Then
Tables("应收交易流水").Position = wz
End If
Return
End If
End If
在窗体表中CurrentChange的事件中写了如上代码,当打开窗体时如果是筛选后我数据的情况下会提示错误信息,说未将对象实例