Dim r As Row = Tables("基本信息").currentDim r2 As Row = Tables("基本信息").addnewDim r3 As Row = Tables("卷内目录").addnewr2("档号")=r("档号")r3("档号")=r("档号")
------------------------
或者直接写 Tables("基本信息.卷内目录").addnew