afterOpenProject事件:
for each dr as datarow in datatables("表名").Datarows
dr("日期") = Date.Today
next
只是不明白意义何在,既然这一列的内容永远都是今天,那么这一列可以删除,没有存在的意义。