试试
Dim n As Double = Tables("窗口1_Table1").Current("金额")
Tables("窗口1_Table3").filter="采购金额>=" & n-0.00001 & " and 采购金额<=" & n+0.00001