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

                    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

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