dt.AsEnumerable.Where(Function(r) System.Text.RegularExpressions.Regex.IsMatch(r(“番号”).ToString,“^\d{8}_”)).OrderBy(Function(r) Int32.Parse(System.Text.RegularExpressions.Regex.Match(r(“番号”).ToString,“\d{5}$”).Value)).Last().Item(“番号”).ToString
は、代入アクティでしょうか…?