专家坐堂-版主帮忙看看，代码不对!!!xiexieFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  版主帮忙看看，代码不对!!!xiexie  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3830)

--  作者：杨浩
--  发布时间：2009/8/7 10:33:00
--  版主帮忙看看，代码不对!!!xiexie

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

--  作者：yangming
--  发布时间：2009/8/7 11:02:00
--
有什么提示?
Dim wz As Integer = Tables("职务变动基础信息").FindRow(dr)
上句中的"dr"没定义
[此贴子已经被作者于2009-8-7 11:04:17编辑过]

--  作者：杨浩
--  发布时间：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

--  作者：杨浩
--  发布时间：2009/8/7 11:02:00
--

版主帮忙看看，谢谢

--  作者：yangming
--  发布时间：2009/8/7 11:05:00
--
有什么提示?
Dim wz As Integer = Tables("职务变动基础信息").FindRow(dr)
上句中的"dr"没定义
还是上传文件吧
[此贴子已经被作者于2009-8-7 11:05:36编辑过]

--  作者：杨浩
--  发布时间：2009/8/7 11:08:00
--

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

--  作者：yangming
--  发布时间：2009/8/7 11:13:00
--
代码是哪个表中的?

--  作者：杨浩
--  发布时间：2009/8/7 11:16:00
--

在职务变动基础数据表中的确定按钮！！！

--  作者：杨浩
--  发布时间：2009/8/7 11:22:00
--
这个按钮的目的在于先在职务变动基础数据表中查找录入人员，如果没有就从调资基础数据表中读入！！！
谢谢

--  作者：杨浩
--  发布时间：2009/8/7 11:23:00
--
为了防止同名同姓的，我们加了一个身份证号判断！！！