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


  共有17113人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/14 17:54:00 [显示全部帖子]

以下是引用杨浩在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 If

End If

    End If     这两个End if 位置错误了吧?

End select

[此贴子已经被作者于2009-7-14 17:54:28编辑过]

 回到顶部