主题：在窗口副表中粘贴新增N行

''============粘贴新增N行================

Dim t As Table = CurrentTable  ' Tables("企业信用_table1")

If e.Control = True AndAlso t.Current IsNot Nothing Then

    Dim r As Integer = t.RowSel

    If e.KeyCode = keys.V Then

        Dim str As String = ClipBoard.GetText 

        Dim nr As Integer = str.Replace(vblf,"").Trim(vbcr).Split(vbcr).Length + (t.RowSel) - t.Rows.Count 

        If nr > 0 Then

            t.AddNew(nr)

            t.Select(r,t.ColSel)

        End If

    End If

End If

出现下图错位错误：

此主题相关图片如下：6662636.png