Dim drs As List (of DataRow)=dt.Select("id like '"& dr("id") &"%' And len(id) = " & dr(id).length+2 & " And id <> '"& dr("id") &"'","id") '按代码顺序添加