Foxtable(狐表) → 用户栏目 → 专家坐堂 → 版主帮忙看看，代码不对!!!xiexie


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

主题：版主帮忙看看，代码不对!!!xiexie
帅哥哟，离线，有人找我吗？
杨浩
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		版主帮忙看看，代码不对!!!xiexie  发帖心情 Post By：2009/8/7 10:33:00 [显示全部帖子]

 

Dim Val As string

Val= e.Form.Controls("姓名").Value

Dim Vbl As string

Vbl= e.Form.Controls("身份证号").Value

if Val = "" then   

 MessageBox.Show("你未录入需要变动职务人员的姓名!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if Vbl = "" then   

 MessageBox.Show("你未录入需要变动职务人员的身份证号!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if Val > "" AndAlso DataTables("职务变动基础信息").Select("[姓名] = '" & val & "'").Count > 0  then

if Vbl > "" AndAlso DataTables("职务变动基础信息").Select("[身份证号] = '" & val & "'").Count > 0  then

MessageBox.Show("在职务变动基础信息表中已有该人员的基础信息，不需要你重新录入！！！","提示",MessageBoxButtons.OK,MessageBoxIcon. Information)

If Vbl IsNot Nothing Then
        Dim wz As Integer = Tables("职务变动基础信息").FindRow(dr)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

Else

MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员，我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

dim f As New Filler

 f.SourceTable = DataTables("调资基础数据") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("职务变动基础信息") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,变动前职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

With e.Form.Controls("单位名称")

    If .Value IsNot Nothing Then

        f.Filter= "[身份证号]= '" & .Value & "'"

f.Fill() '填充数据

MessageBox.Show("你录入的职务变动人员，其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")

If Vbl IsNot Nothing Then
        Dim wz As Integer = Tables("职务变动基础信息").FindRow(dr)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

Else

MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员，我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

dim f As New Filler

 f.SourceTable = DataTables("调资基础数据") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("职务变动基础信息") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,变动前职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

With e.Form.Controls("单位名称")

    If .Value IsNot Nothing Then

        f.Filter= "[身份证号]= '" & .Value & "'"

f.Fill() '填充数据

MessageBox.Show("你录入的职务变动人员，其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")

If Vbl IsNot Nothing Then
        Dim wz As Integer = Tables("职务变动基础信息").FindRow(dr)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

End if

End if

End if

End if


 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:02:00 [显示全部帖子]

 

Dim Val As string

Val= e.Form.Controls("姓名").Value

Dim Vbl As string

Vbl= e.Form.Controls("身份证号").Value

if Val = "" then   

 MessageBox.Show("你未录入需要变动职务人员的姓名!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if Vbl = "" then   

 MessageBox.Show("你未录入需要变动职务人员的身份证号!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if Val > "" AndAlso DataTables("职务变动基础信息").Select("[姓名] = '" & val & "'").Count > 0  then

if Vbl > "" AndAlso DataTables("职务变动基础信息").Select("[身份证号] = '" & val & "'").Count > 0  then

MessageBox.Show("在职务变动基础信息表中已有该人员的基础信息，不需要你重新录入！！！","提示",MessageBoxButtons.OK,MessageBoxIcon. Information)

If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(Vbl)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

Else

MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员，我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

dim f As New Filler

 f.SourceTable = DataTables("调资基础数据") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("职务变动基础信息") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,变动前职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

With e.Form.Controls("单位名称")

    If .Value IsNot Nothing Then

        f.Filter= "[身份证号]= '" & .Value & "'"

f.Fill() '填充数据

MessageBox.Show("你录入的职务变动人员，其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")

If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(vbl)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

Else

MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员，我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

dim f As New Filler

 f.SourceTable = DataTables("调资基础数据") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("职务变动基础信息") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,变动前职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

With e.Form.Controls("单位名称")

    If .Value IsNot Nothing Then

        f.Filter= "[身份证号]= '" & .Value & "'"

Else

End If

End With

f.Fill() '填充数据

MessageBox.Show("你录入的职务变动人员，其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")

If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(vbl)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If

    Forms("职务变动人员基础信息录入").Open()

End If

End if

End if

End if

End if


 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:02:00 [显示全部帖子]

版主帮忙看看，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:08:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:rsgzglxt.rar
 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:16:00 [显示全部帖子]

在职务变动基础数据表中的确定按钮！！！
 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:22:00 [显示全部帖子]

这个按钮的目的在于先在职务变动基础数据表中查找录入人员，如果没有就从调资基础数据表中读入！！！
谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:23:00 [显示全部帖子]

为了防止同名同姓的，我们加了一个身份证号判断！！！

 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:30:00 [显示全部帖子]

 

If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(Vbl)
        If wz >= 0 Then
          Tables("职务变动基础信息").Position = wz
        End If
       End If


这段代码的目的在于打开职务变动人员基础信息录入窗口是自动定位到录入的该人员！！！
但发现有问题，也就是光标的定位！！

 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:36:00 [显示全部帖子]

忘记加了

 回到顶部
帅哥哟，离线，有人找我吗？
杨浩
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00 		  发帖心情 Post By：2009/8/7 11:39:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:rsgzglxt.rar
 回到顶部
总数 28 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询