主题：两个问题需要解答一下

1、第一个问题，下来框没有数据，说明你的代码没有执行，这样判断一下啊：

Messagebox.show(Tables(e.form.Name).Current("请购依据"))
Messagebox.show(Tables(e.form.Name).Current("请购依据") ="销售订单")
If Tables(e.form.Name).Current("请购依据") ="销售订单" Then

    '其他代码
End If

2、第二个问题不存在，不管以任何形式修改数据，HasChanges都会等于True。第一次编辑，你得等编辑结束后，离开单元格或者编辑框，也就是表的数据发生变化后，HasChanges才会等于True。

并非你在单元格或者编辑框输入的过程，HasChanges的值就会发生变化。