因为你窗口表做了筛选，到窗口明细表副本的keydown事件写代码
'复制,自动增加行
Dim t As Table = e.Table
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
For i As Integer = 1 To nr
Dim dr As Row = t.AddNew()
dr("总号") = e.Form.Controls("Table总表").Table.current("总号")
Next
t.Select(r,t.ColSel)
End If
End If
End If
加好友 
发短信
Post By：2019/1/4 22:56:00 [显示全部帖子]
