Dim lst1 As List(Of String) = DataTables("表A").GetValues("第一列","第一列 >= '037' And 第一列 <= '105'") ‘要查询的编号区间
Dim lst2 As New List(Of String)
For i As Integer = 37 To 105
If lst1.Contains(CStr(i).PadLeft(3,"0")) = False Then
lst2.Add(CStr(i).PadLeft(3,"0"))
End If
Next
For Each s As String In lst2
Output.Show(s) ’缺失的编号
Next