VB.NET中DataTable查询如何避免默认排序并保持行顺序？

这个问题我之前也踩过坑！DataTable.Select方法有个容易被忽略的行为：当你不指定Sort参数时，它会默认按照DataTable的主键列排序（如果表定义了主键）；如果没有主键，则会沿用DataTable.DefaultView的排序规则——这就是为什么你的查询结果会被自动排序，打乱了原有的行顺序。

要保持原始行顺序，有两种更靠谱的方案：

方案1：用Linq遍历（推荐，更简洁） #

直接通过Linq遍历DataTable的行，它会严格按照行的原始添加顺序来筛选，完全不会触发自动排序。代码示例：

' 假设EMPNO是字符串类型，如果是数字类型，需要先转成字符串再判断StartsWith
Dim targetRow = DSXML.Tables(0).AsEnumerable() _
    .FirstOrDefault(Function(row) row.Field(Of String)("EMPNO").StartsWith(txtToBeSearched))

如果EMPNO是数值类型（比如Integer），可以调整一下判断逻辑：

Dim targetRow = DSXML.Tables(0).AsEnumerable() _
    .FirstOrDefault(Function(row) row.Field(Of Integer)("EMPNO").ToString().StartsWith(txtToBeSearched))

方案2：给Select方法指定原始顺序排序（适合必须用Select的场景） #

如果你一定要用DataTable.Select，可以临时添加一个记录原始行位置的列，然后在查询时指定按这个列排序：

' 1. 添加临时列，记录每一行的原始索引
DSXML.Tables(0).Columns.Add("OriginalRowIndex", GetType(Integer))
For i As Integer = 0 To DSXML.Tables(0).Rows.Count - 1
    DSXML.Tables(0).Rows(i)("OriginalRowIndex") = i
Next

' 2. 查询时指定按原始索引排序
Dim targetRow = DSXML.Tables(0) _
    .Select($"EMPNO Like '{txtToBeSearched}%'", "OriginalRowIndex ASC") _
    .FirstOrDefault()

' 3. 用完后可以删除临时列（可选，根据你的业务需求）
DSXML.Tables(0).Columns.Remove("OriginalRowIndex")

额外提醒 #

你的原始代码存在SQL注入风险！直接拼接字符串到查询条件里，如果txtToBeSearched包含单引号之类的特殊字符，会导致查询报错。用Linq方案可以完全规避这个问题；如果坚持用Select，建议手动转义特殊字符（比如把单引号替换成双单引号）。

内容的提问来源于stack exchange，提问作者Sulthan