tmpString ="运单编号 = '" & e.Form.Controls("txtYundanBianhao").text & "'" dr = Tables("扫描批次.扫描记录").DataTable.Find(tmpString) If dr IsNot Nothing Then MessageBox.Show("此单号在本批次已经存在!") Return End If
dr = Tables("扫描批次.扫描记录").DataTable.Find(tmpString) 这句是查询DATATABEL中的是不是存在这个运单编号,而不是关联表中看到的内容,