主题：版主帮忙看看，代码不对!!!xiexie

 

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

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

职务变动基础信息表中并没有姓名列啊

忘记加了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar

Vbl不是行,只是字符型,另外,你的代码有不少问题,你可以一段一段的测试一下

试试这个
Dim dr As DataRow
dr = DataTables("职务变动基础信息").Find("[序号] > 0")
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       '终止代码的执行
    End If
        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(dr)
                    If wz >= 0 Then
                        Tables("职务变动基础信息").Position = wz
                    End If
                End If
                Forms("职务变动人员基础信息录入").Open()
            End If
            MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员,我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
   End If        
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(dr)
                        If wz >= 0 Then
                            Tables("职务变动基础信息").Position = wz
                        End If
                    End If
                    Forms("职务变动人员基础信息录入").Open()
                End If
                    MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员,我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
                End With
                dim f1 As New Filler
                f1.SourceTable = DataTables("调资基础数据") '指定数据来源
                f1.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列
                f1.DataTable = DataTables("职务变动基础信息") '指定数据接收表
                f1.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,变动前职务" '指定数据接收列
                f1.ExcludeExistValue = "true"
                f1.ExcludeNullValue = "true"
                With e.Form.Controls("单位名称")
                    If .Value IsNot Nothing Then
                        f1.Filter= "[身份证号]= '" & .Value & "'"
                    End If
                End With
                f1.Fill() '填充数据
                MessageBox.Show("你录入的职务变动人员,其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")
                If Vbl IsNot Nothing Then
                    Dim wz As long = Tables("职务变动基础信息").FindRow(dr)
                    If wz >= 0 Then
                        Tables("职务变动基础信息").Position = wz
                    End If
                End If
                Forms("职务变动人员基础信息录入").Open()
            End If

Dim Val As string
Val= e.Form.Controls("职务变动人员姓名").Value
Dim Vbl As string
Vbl= e.Form.Controls("职务变动人员身份证号").Value
Dim dr As DataRow
dr = DataTables("职务变动基础信息").Find("姓名= '" & val & "'")
if Val = "" then
    MessageBox.Show("你未录入需要变动职务人员的姓名!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return       '终止代码的执行
Else
    if Vbl = "" then
        MessageBox.Show("你未录入需要变动职务人员的身份证号!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return       '终止代码的执行
    End If
    if Val > "" AndAlso DataTables("职务变动基础信息").Select("[姓名] = '" & val & "'").Count > 0  then
        if Vbl > "" AndAlso DataTables("职务变动基础信息").Select("[身份证号] = '" & vbl & "'").Count > 0  then
            MessageBox.Show("在职务变动基础信息表中已有该人员的基础信息,不需要你重新录入!!!","提示",MessageBoxButtons.OK,MessageBoxIcon. Information)
            If Vbl IsNot Nothing Then
                Dim wz As long = Tables("职务变动基础信息").FindRow(dr)
                If wz >= 0 Then
                    Tables("职务变动基础信息").Position = wz
                End If
            End If
            Forms("职务变动人员基础信息录入").Open()
        End If
        MessageBox.Show("在职务变动基础数据表中没有查询到该姓名的人员,我们将在调资基础数据表中查询读入该人员的基础信息!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    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 & "'"
        End If
    End With
    f.Fill() '填充数据
    MessageBox.Show("你录入的职务变动人员,其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")
    If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(dr)
        If wz >= 0 Then
            Tables("职务变动基础信息").Position = wz
        End If
    End If
    Forms("职务变动人员基础信息录入").Open()
End If

同名的人员，如何处理

dr = DataTables("职务变动基础信息").Find("姓名= '" & val & "'")