以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  排序后有，选定多行后改变数据内有问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53610)
--  作者：htlk25
--  发布时间：2014/7/11 15:40:00
--  排序后有，选定多行后改变数据内有问题
当我先定父表行并加载完子表的数据后，如果我把子表按某一列重新排序了
然后一次性选了子表的很多行（比如说50行）
用下面的目录树来改变子表选定行的指定单元格的内容，每次只能改变25行
如果没有排序，则可以50行全部改变！
If e.Node.Level = 0 Then
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim txt As String =ps(0)
    With Tables("展会信息.原始名单")
        For i As Integer = .TopPosition To .BottomPosition
            .Rows(i)("名单年度") = txt
        Next
    End With
End If
e.Form.DropDownBox.CloseDropdown()

我应该如何调整，谢谢教师！
--  作者：有点甜
--  发布时间：2014/7/11 15:44:00
--  

 这样处理有问题，你修改名单年度的同时，可能这一行就不属于此表了。

 

 With Tables("展会信息.原始名单")
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i)("名单年度") = txt
    Next
End With
--  作者：htlk25
--  发布时间：2014/7/11 20:35:00
--  
多谢多谢！