dr1 = DataTables("员工资料").Find("[部门工号] = '" & dr1("部门工号")& and "[作业员_工号]='"& dr1("作业员_工号")& "'")
是不是这样?