if e.datacol.name = "身份证号码" then if e.newvalue isnot nothing then dim a as string dim b as datarow a = e.datarow("身份证号码") a = a.replace(0,5) b= datatables("籍贯档案").find("[号码] = a ") if b isnot nothing then e.datarow("籍贯") = b("地址") else return end if end if end if