有点甜老师你好：我还有个需求：如果当前行为新增行时，如何同时增加到“原材料进场录入_Table1”表中，如果当前行不为新增行时，就不能增加到“原材料进场录入_Table1”表中
Dim tp As WinForm.TabControl = e.sender
Select Case tp.SelectedPage.Text
Case "批量录入"
If Tables("原材料").Rows.Count = 0 Then '如果是一个空表
Return '那么返回
End If
Dim idxs As String = "-1,"
Dim dr As DataRow = Tables("原材料").Current.DataRow
If dr.RowState = DataRowState.Detached Then
Tables("原材料进场录入_Table1").filter = "dr.RowState = DataRowState.Detached "
End If
For i As Integer = 1 To 4
Dim nr As Row = Tables("原材料进场录入_Table1").AddNew
idxs & = nr("_Identify") & ","
For Each dc As Col In Tables("原材料").Cols
nr(dc.name) = dr(dc.Name)
Next
Next
Tables("原材料进场录入_Table1").filter = "_Identify in (" & idxs.Trim(",") & ")"
End Select
加好友 
发短信
Post By：2018/6/1 10:55:00 [显示全部帖子]
此主题相关图片如下：1527823829(1).png