主题：[求助]增加多行

什么意思？

举例说明。

不是不帮忙，我是理解不了你的问题

如果这样，你可以自己做个在关联表增加行的按钮，这样每次增加行，需要的列可以从最后一行继承内容：

 

if Tables("表1.表2").Rows.Count > 0 Then

    With Tables("表1.表2")

         Dim r1 Row = .Rows(.Rows.Count -1)

         Dim r2 As row  = .AddNew()

         r2("某列1") = r1("某列1")

         r2("某列2") = r1("某列3")

         r2("某列3") = r1("某列4")

    End with

Else

    Tables("表1.表2").AddNew
End If

Dim r1 As  Row = .Rows(.Rows.Count -1)

一次增加5行：

 

For i As Integer  To 5
    If Tables("表1.表2").Rows.Count > 0 Then
        With Tables("表1.表2")
            Dim r1 Row = .Rows(.Rows.Count -1)
            Dim r2 As Row  = .AddNew()
            r2("某列1") = r1("某列1")
            r2("某列2") = r1("某列3")
            r2("某列3") = r1("某列4")
        End With
    Else
        Tables("表1.表2").AddNew
    End If
Next

Dim n As Integer
InputValue(n, "增加行哦", "你希望是几行？")

For i As Integer = 1  To n
    If Tables("表1.表2").Rows.Count > 0 Then
        With Tables("表1.表2")
            Dim r1 Row = .Rows(.Rows.Count -1)
            Dim r2 As Row  = .AddNew()
            r2("某列1") = r1("某列1")
            r2("某列2") = r1("某列3")
            r2("某列3") = r1("某列4")
        End With
    Else
        Tables("表1.表2").AddNew
    End If
Next