以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  排序和新增  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191417)
--  作者：shyilin3
--  发布时间：2024/4/15 21:39:00
--  排序和新增
 已经有10行，我进行排序，再新增5行，这五行要怎么定位？用FindRow定位行吗？
--  作者：shyilin3
--  发布时间：2024/4/15 22:09:00
--  
     Dim t As Table = Tables("制单表.正式制单单明细")
    t.AddNew(tb.GetCheckedRows.count)
    Dim i As Integer = t.rows.count - 1
    For Each dr As Row In tb.GetCheckedRows
        Dim r As Row = t.rows(i)
        r("维修编号") = dr("维修编号")
 
        i = i - 1
    Next
Tables("制单表.正式制单单明细")排序以后添加会乱，这个要怎么改呢  前提不把t.AddNew放在循环里面
--  作者：有点蓝
--  发布时间：2024/4/15 22:20:00
--  
只能把t.AddNew放在循环里面
--  作者：shyilin
--  发布时间：2024/4/15 22:27:00
--  
放进去太卡了，还有其他写法吗？
--  作者：shyilin
--  发布时间：2024/4/15 22:46:00
--  
老师还在吗？
--  作者：有点蓝
--  发布时间：2024/4/15 23:01:00
--  
先取消排序，新增前记录行数，也就是最后一行的位置，新增后从之前最后一行的位置之后的行开始赋值。最后再重新排序
--  作者：shyilin
--  发布时间：2024/4/15 23:06:00
--  
好的????，谢谢老师