Select Case e.DataCol.name
Case "预算编号"
If e.DataRow.IsNull("预算编号") Then
DataTables("物资采购明细表").DeleteFor("预算编号='" & e.DataRow("预算编号") & "'")
Else
Dim ndr1 As DataRow = DataTables("物资采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
If ndr1 Is Nothing Then
Dim ndr As DataRow = DataTables("物资采购明细表").AddNew
ndr("预算编号") = e.DataRow("预算编号")
ndr("编制人") = e.DataRow("编制人")
End If
End If
End Select
这段编码实现在子表中最后一行增加行，怎样修改能实现增加行始终在第一行？
加好友 
发短信
Post By：2018/8/1 13:42:00 [只看该作者]
