帮我看一下是那里错了，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮我看一下是那里错了，谢谢

共有19957人关注过本帖树形打印复制链接主题：帮我看一下是那里错了，谢谢

小狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：734 积分：5645 威望：0 精华：0 注册：2008/9/6 11:22:00

帮我看一下是那里错了，谢谢 发帖心情

Post By：2008/12/4 16:39:00 [只看该作者]

在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

那里错了