主题：用如下代码对表操作但是却执行的不对 急！！！

'品牌机设备汇总'是表名       ‘设备编号’‘是否在库’分别是表中的两列    我设计了一个窗口   窗口上设置了1个textbox1用于输入编号     一个button 为出库         我的意思是   当我在textbox1中 输入 一个设备编号 点击出库

表中自动查询到编号为 textbox1的行    然后     改行对应的是否在库的单元格自动改为 false   代码是这样的：

Dim a As String = "TextBox1"
Dim drs As List(Of DataRow)
drs = DataTables("品牌机设备汇总").Select("设备编号 = 'a'")
For Each dr As DataRow In drs
    dr("是否在库") = False
Next

以上代码运行的结果是 我输入编号之后    点击出库       结果把光标处的信息改成 textbox1的信息了    是否在库也不执行。。。。。。研究了好几天了  find的方法我也使用过      我感觉问题应该出来select这一块     快帮帮我把   大侠们     我脑袋快炸了   在线等  不胜感激！！1

如果我设计的窗口上不是一个textbox1   而是10个textbox      那么button的代码该如何写呢        帮兄弟写一下   兄弟在集合帮助文档好好研究一下  先行谢过