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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现序号列自动编号等!!!谢谢

共有19210人关注过本帖树形打印复制链接主题：如何实现序号列自动编号等!!!谢谢

杨浩

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

加好友

发短信

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

如何实现序号列自动编号等!!!谢谢 发帖心情

Post By：2009/7/14 15:19:00 [显示全部帖子]

1、如何实现序号列自动编号？
2、如何实现使用录入窗口选择职务时，自动把“工资标准”表的相应职务数据生成到录入窗口？
3、如何实现开发的软件，具有审核数据的功能?比如出生日期和录入身份证号，性别和录入身份证号进行比较审核，最后将审核结果在文本框中显示出来？谢谢

杨浩

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

加好友

发短信

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

Post By：2009/7/14 15:36:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

杨浩

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

加好友

发短信

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

Post By：2009/7/14 15:37:00 [显示全部帖子]

1指的编制唯一的序号？

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:07:00 [显示全部帖子]

审核结果在审核窗口提示！！！

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:13:00 [显示全部帖子]

审核结果在审核窗口提示！！！

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:49:00 [显示全部帖子]

Select Case e.Datacol.Name

Case "职务"

Dim dr As DataRow = DataTables("工资标准").Find("职务 = '" & e.DataRow("职务") & "'")

If dr IsNot Nothing Then

e.DataRow("基础工资") = dr("基础工资")

e.DataRow("级别工资") = dr("级别工资")

e.DataRow("职务工资") = dr("职务工资")

End If

Case "身份证号","出生时间"

If e.Datarow.IsNull("出生时间") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("出生时间") <> ReadBirthday(e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入出生日期校对错误!!!")

Case "身份证号","性别"

If e.Datarow.IsNull("性别") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("性别") <> ReadSex (e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入性别校对错误!!!")

End If

End select

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:50:00 [显示全部帖子]

提示错误

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:50:00 [显示全部帖子]

Select Case e.Datacol.Name

Case "职务"

Dim dr As DataRow = DataTables("工资标准").Find("职务 = '" & e.DataRow("职务") & "'")

If dr IsNot Nothing Then

e.DataRow("基础工资") = dr("基础工资")

e.DataRow("级别工资") = dr("级别工资")

e.DataRow("职务工资") = dr("职务工资")

End If

Case "身份证号","出生时间"

If e.Datarow.IsNull("出生时间") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("出生时间") <> ReadBirthday(e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入出生日期校对错误!!!")

Case "身份证号","性别"

If e.Datarow.IsNull("性别") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("性别") <> ReadSex (e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入性别校对错误!!!")

End If

End select

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:55:00 [显示全部帖子]

Select Case e.Datacol.Name

Case "职务"

Dim dr As DataRow = DataTables("工资标准").Find("职务 = '" & e.DataRow("职务") & "'")

If dr IsNot Nothing Then

e.DataRow("基础工资") = dr("基础工资")

e.DataRow("级别工资") = dr("级别工资")

e.DataRow("职务工资") = dr("职务工资")

End If

Case "身份证号","出生时间"

If e.Datarow.IsNull("出生时间") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("出生时间") <> ReadBirthday(e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入出生日期校对错误!!!")

Case "身份证号","性别"

If e.Datarow.IsNull("性别") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

If e.DataRow("性别") <> ReadSex (e.DataRow("身份证号")) Then

messagebox.show("录入身份证号和录入性别校对错误!!!")

End If

End select

杨浩

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

加好友

发短信

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

Post By：2009/7/14 17:57:00 [显示全部帖子]

知道了，谢谢

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

总数 13 1 2 下一页

主题：如何实现序号列自动编号等!!!谢谢