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