主题：帮我看一下是那里错了，谢谢

在datacolchanged 中设置公式如下:

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

那里错了