你筛选条件是这个?
Tables("入库单_table1").Filter="单号='" & txt1.text &"'"
不然你就改成这个
Tables("入库单_table1").Filter=""
或者,你希望你table1里面显示什么内容的数据?