Dim r As Row = Tables("表A").InsertNew()
r("日期") = Date.Today()

提示：内部表默认可以插入行，而外部表默认是不可以的；有关如何开启和关闭插入行功能，请参考：设置标志列