如何实现这种想法？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现这种想法？谢谢

共有38963人关注过本帖树形打印复制链接主题：如何实现这种想法？谢谢

杨浩

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

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/11 14:59:00 [只看该作者]

通过按钮实现

杨浩

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

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/11 14:59:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:rsgzglxt.rar

杨浩

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

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/11 15:22:00 [只看该作者]

版主帮帮忙

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/11 15:24:00 [只看该作者]

放按钮中

For Each dr As DataRow In DataTables("审核").DataRows
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then '判断是否不符合验证要求
        dr("审核")="身份证号数不对"
    End If
    If dr("性别")<> ReadSex(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"性别不对"
    End If
    If dr("出生日期")<> ReadBirthDay(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"出生日期不对"
    End If
    If dr("工作时间").Year-dr("出生日期").Year < 18
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间不对"
    End If
Next

xysheng

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

加好友

发短信

等级：幼狐帖子：53 积分：1698 威望：0 精华：0 注册：2008/8/31 21:43:00

Post By：2009/8/11 16:37:00 [只看该作者]

性别、出生日期列可以通过"身份证号码"自动填充。

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/8/11 16:38:00 [只看该作者]

yang版：
34楼代码，多执行几次会出现重复：

图片点击可在新窗口打开查看

此主题相关图片如下：有重复.jpg

改为这样就不会了：
For Each dr As DataRow In DataTables("审核").DataRows
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then
        dr("审核")="身份证号数不对"
    else
        dr("审核")="..."
    End If
    If dr("性别")<> ReadSex(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"性别不对"
    End If
    If dr("出生日期")<> ReadBirthDay(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"出生日期不对"
    End If
    If dr("工作时间").Year-dr("出生日期").Year < 18
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间不对"
    End If
    if dr("审核").Contains("...") then
        dr("审核")= dr("审核").Replace("...","")
    end if
Next

[此贴子已经被作者于2009-8-11 16:41:17编辑过]

杨浩

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

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/11 17:10:00 [只看该作者]

数据实现自动填充！！！？？？？

杨浩

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

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/11 17:49:00 [只看该作者]

数据实现自动填充！！！？？？？

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/8/11 17:56:00 [只看该作者]

以下是引用杨浩在2009-8-11 17:49:00的发言：

数据实现自动填充！！！？？？？

提问不要太偷懒，多说几个字行吗？

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/11 18:05:00 [只看该作者]

For Each dr As DataRow In DataTables("审核").DataRows
     dr("审核")=""
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then '判断是否不符合验证要求
        dr("审核")="身份证号数不对"
    End If
    If dr("性别")<> ReadSex(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"性别不对"
    End If
    If dr("出生日期")<> ReadBirthDay(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"出生日期不对"
    End If
    If dr("工作时间").Year-dr("出生日期").Year < 18
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间不对"
    End If
Next

下一主题 >> << 上一主题

总数 84 上一页 1 2 3 4 5 6 7 8 9 下一页

主题：如何实现这种想法？谢谢