应收货款一般是数值型的,锁定表不能编辑状态下,双击表.
在表事件的双击表的事件中写一下代码:
Dim r As Row - Tables("xxx").CurrentTables("xxx").Filter = "应收货款 = " & r("应收货款")"