主题：表达式列错误

rw2 = Tables("工单").FindRow("[工单编号] = '" & e.Form.Controls("TextBox1").value & "' And [生产线别]= '" & line &  "'")
            If rw2 < 0 Or e.Form.Controls("TextBox1").value = ""  Then
                DataTables("工单").AddNew
                rw2 = Tables("工单").FindRow("[工单编号] is null and [成品料号] is null")
                Dim cls As new List(of Integer) '找工单的最大编号
                For Each ts As DataRow In DataTables("工单").DataRows
                    cls.add(val(ts("工单编号")))
                Next
                cls.sort
                wono=cls(cls.count-1)+1
            Else
                DataTables("工单").DeleteFor("[工单编号]>'" & e.Form.Controls("TextBox1").value & "' And [生产线别]= '" & line &  "'")
                wono=e.Form.Controls("TextBox1").value
                DataTables("工单").AddNew

如上代码，

在红色部分的功能的目的是找到对应的工单编号，然后把大于这个号码的行删除。

但是我在‘e.Form.Controls("TextBox1").value’ 里面输入12的时候，会把编号为2~9的行都删除了。

貌似这个红色部分的是按照1,10,100..2  的ASC代码排序的，所以2大于12。

有什么办法可以让红色的代码工作正常？