主题：指令不执行

 呃，你的sqlserver数据源没有发上来啊。

 代码不可能无效的。看是不是Datacolchanging 或 Datacolchanged 或 DataRowAdding 等事件影响了。

SystemReady = False
Dim nr As Row = Tables("a加班申請單子檔").AddNew
nr("日期") = Date.Today
SystemReady = True