以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表自动增加行问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122745)
--  作者：13775189031
--  发布时间：2018/8/1 13:42:00
--  关联表自动增加行问题

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

这段编码实现在子表中最后一行增加行，怎样修改能实现增加行始终在第一行？
--  作者：有点甜
--  发布时间：2018/8/1 14:42:00
--  
                Dim ndr As DataRow = DataTables("物资采购明细表").AddNew
                ndr("预算编号") = e.DataRow("预算编号")
                ndr("编制人") = e.DataRow("编制人")

 

改成

 

                Dim ndr As Row = Tables("主表.物资采购明细表").AddNew
                ndr("预算编号") = e.DataRow("预算编号")
                ndr("编制人") = e.DataRow("编制人")
                ndr.Move(0)
--  作者：13775189031
--  发布时间：2018/8/1 16:57:00
--  
还是在最后一行
--  作者：有点甜
--  发布时间：2018/8/1 17:14:00
--  
以下是引用13775189031在2018/8/1 16:57:00的发言：
还是在最后一行

 

上传具体实例说明。

 

或者改成 Dim ndr As Row = Tables("物资采购明细表").AddNew
--  作者：13775189031
--  发布时间：2018/8/1 17:36:00
--  
改成 Dim ndr As Row = Tables("物资采购明细表").AddNew以后没问题了！
谢谢！