1、你textbox1绑定表列了,你切换行,自然会触发textchanged事件
2、报错是因为 Tables("订单表").Current,筛选以后,可能这个表没有记录了。要判断
If Tables("订单表").Current IsNot Nothing Then
End If