主题：先提个问题，再提个建议。

1、问题回复：

Dim r1 AS Row = Tables("文章表名称").Current

Dim r2 As Row  = Tables("书签表名称").AddNew

r2("序号") = r1("序号")

r2("文题") = r1("文题")

2、建议以后会考虑的。