在datarowadding事件写代码如
e.DataRow("日期")= Date.today()
e.DataRow("录入员")= User.name
在afteropenProject事件,加入开启代码
For Each dt As DataTable In DataTables dt.GlobalHandler.DataRowAdding = TrueNext