主题：系统列请教

   大师：您好！      统一上移行正确            

                    Dim drs As new List (of DataRow)

                    drs = DataTables("kmzd").Select("zzfl like'" & s.ParentNode.ParentNode.ParentNode.Text & _

                    "'and bbfl like '" & s.ParentNode.ParentNode.Text & _

                    "'and kmfl like '" & s.ParentNode.Text & _

                    "'and bbkm like '" & s.text & "'","_SortKey")

                    

                    For Each dr As DataRow In drs

                        Dim dr1 As Integer = Tables("kmzd").FindRow(dr)

                        If dr1 >= 0 Then '如果找到的话

                            Tables("kmzd").Position = dr1 '定位到找到的行

                            dr1 = dr1 - 1

                            Tables("kmzd").Current.Move(dr1 )

                            

                        End If

                    Next

为什么再统一下移行就不对了？