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

你代码的错误很多，而且一些错误很离谱，代码应该是：

Dim a As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRtow = DataTables("品牌机设备汇总").Find("设备编号 = '" & a & "'")
dr("是否在库") = False