With DataTables("考试") dr_xn = .Find("学年 ='" & xn & "'") '检查相同学年 dr_xq = .Find( "学期 ='" & xq.value & "'") '检查相同学期 dr_ksmc = .Find("考试名称 ='" & ksmc.value & "'") '检查相同考试名称 End With If dr_ksmc Is Nothing Then
..............
为什么刚开始加考试表时找不到datatables("考试")中的考试名称等
代码作用是:发现输入考试信息与表中想同就提示已经存在,如果不同就生成新的考试信息