呃,你的sqlserver数据源没有发上来啊。
代码不可能无效的。看是不是Datacolchanging 或 Datacolchanged 或 DataRowAdding 等事件影响了。
SystemReady = FalseDim nr As Row = Tables("a加班申請單子檔").AddNewnr("日期") = Date.TodaySystemReady = True