temp2: 窗口里的总表和明细表，都设置成副本，明细表添加下面复制代码，复制时自动添加行。但窗口的明细表，不能显示新加的行。DataTable明细表已经有这些空行，内容却是空。有办法复制内容到窗口中明细表，能自动添加总号、明细号、内容。
temp3 : 现在解决方法是都设置成正本，明细表用关联表。
----- 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
t.AddNew(nr)
t.Select(r,t.ColSel)
End If
End If
End If
此主题相关图片如下：6.gif
[此贴子已经被作者于2019/1/4 22:24:29编辑过]
加好友 
发短信
Post By：2019/1/4 22:24:00 [显示全部帖子]
