Dim r As Row = Tables("岗中").Current Dim nr As Row If r IsNot Nothing Then Dim n As Integer = 1 InputValue(n, "增加", "增加多少行?") For i As Integer=1 To n nr=Tables("岗中").AddNew() For Each c As Col In Tables("岗中").Cols nr(c.Name) = r(c.Name) Next Next End If