请教：
Select Case e.DataCol.name
Case "下料"
If e.newvalue = False Then
DataTables("下料清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
Else
Dim ndr As DataRow = DataTables("下料清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "机加工"
If e.newvalue = False Then
DataTables("机加工清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
Else
Dim ndr As DataRow = DataTables("机加工清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "组合焊接"
If e.newvalue = False Then
DataTables("焊接部件清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
Else
Dim ndr As DataRow = DataTables("焊接部件清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "零件表面无损探伤"
If e.newvalue = False Then
DataTables("零件探伤清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
Else
Dim ndr As DataRow = DataTables("零件探伤清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
End Select
按上述编码自动增加行
先选中的先生成，例如到“下料清单”中后零部件编号就是乱的
能不能让自动生成行后，顺序始终是按零部件编号的顺序排列
加好友 
发短信
Post By：2018/6/30 16:35:00 [只看该作者]
