筛选卡死 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，请帮忙看一下这一段代码是什么问题，执行以后要么报未将对象引用到实例的错误，要么直接卡死

Dim n As Integer = Tables("批量提货_table2").Rows.Count

If n = 0 Then

Else

Tables("批量提货_table2").current("提货方式")= Nothing

Tables("批量提货_table2").current("到货出库")= 0

Tables("批量提货_table1").filter= " 到货=1 " &" And 到货出库=0"

Tables("批量提货_table2").filter= "到货= '" & True & "' And 提货方式= '" & "客户提货" & "'"

End If

主题：筛选卡死