请教：
加载树中加载所有行，执行以下命令时，增加行在所有行的第一行
但是加载树中分类显示时，执行以下命令时，新增加的行就不在所有行的第一行了
要如何改，在加载树中无论如何分类，增加行始终在所有行的第一行？
Select Case e.DataCol.name
Case "预算编号","物资说明"
If e.DataRow.IsNull("预算编号") = True OrElse e.DataRow.IsNull("物资说明") = True Then
DataTables("原材料采购明细表").DeleteFor("预算编号='" & e.DataRow("预算编号") & "'")
Else
Dim ndr1 As DataRow = DataTables("原材料采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
If e.DataRow("物资说明") = "原材料" Then
Dim ndr As Row = Tables("原材料采购明细表").AddNew
ndr("内部合同编号") = e.DataRow("内部合同编号")
ndr("预算编号") = e.DataRow("预算编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("项目名称") = e.DataRow("项目名称")
ndr("物资说明") = e.DataRow("物资说明")
ndr("编制人") = e.DataRow("编制人")
ndr("取消采购") = e.DataRow("取消采购")
ndr("事业部_审核")= e.DataRow("事业部_审核")
ndr.Move(0)
ElseIf e.DataCol.name = "物资说明" AndAlso e.OldValue = "原材料"
DataTables("原材料采购明细表").deletefor("预算编号 = '" & e.DataRow("预算编号") & "'")
End If
End If
End Select
加好友 
发短信
Post By：2021/4/14 13:15:00 [显示全部帖子]
