就你要求的代码而言应该是下面的这样。
dr = DataTables("车床").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
但你所说的输入规格时车床没数据,这个就不知道怎么查找了。