主题：修改数据

 如果去掉 DataTables("流量卡资料").Load 就正常？

 试试改成

msgbox(DataTables("流量卡资料").LoadFilter)

DataTables("流量卡资料").LoadFilter = ""

DataTables("流量卡资料").Load

测试没问题，你请认认真真测试。

或者，请说明你测试的步骤。

 你点击刷新数据想执行什么效果？要不你把代码改成

Dim xm As String = Tables("流量卡资料").Current("流量卡号")
Tables("充值记录").Filter = "流量卡号 = '" & xm & "'"

 我测试没问题啊。你选择其他行没问题啊。

你在主表那里选择其它卡以后，就能对应显示其它卡的充值记录了啊。

你不关闭窗口，直接选择流量卡资料表的记录，不是可以直接操作了？

不是在你的窗口上选择卡号，而是在你双击的那个表选择卡号，你选择哪一个，窗口里面对应就显示哪个卡的充值记录了啊。