dim dr as datarow = DataTables("表名").find("身份证号码 = '" & e.Form.Controls(“输入框).Value) & "'")
if dr isnot nothing then
登记考勤
end if