Dim str As String = e.Form.Controls("ComboBox1").ValueDim dr As DataRow = DataTables("表A").Find("[单位] like '%" & str & "%' ")If dr Is Nothing Then MessageBox.Show("请完善信息")End If