Dim dr As DataRow = DataTables("qrymyf").dataRows(e.Index) '根据行位置从数据表中取得对应的DataRow
改成
Dim drs = DataTables("qrymyf").Select("", "ltsu DESC")
Dim dr As DataRow = drs(e.Index) '根据行位置从数据表中取得对应的DataRow