网络编号,生成临时编号，就执行下面代码在 中间表 新增行，不是想要的效果。如何加一个 新增行保存后，再执行下面代码Select Case e.DataCol.name
Case "计划编号","成果编号"
If e.DataRow.IsNull("计划编号") = False AndAlso e.DataRow.IsNull("成果编号") = False Then
Dim fdr As DataRow = DataTables("中间表").Find("计划编号 = '" & e.DataRow("计划编号") & "' and 成果编号 = '" & e.DataRow("成果编号") & "'")
If fdr Is Nothing Then
Dim ndr As DataRow = DataTables("中间表").addnew
ndr("计划编号") = e.DataRow("计划编号")
ndr("成果编号") = e.DataRow("成果编号")
End If
End If
End Select
[此贴子已经被作者于2020/6/12 15:11:01编辑过]
加好友 
发短信
Post By：2020/6/12 15:11:00 [只看该作者]
