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

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

共有22876人关注过本帖树形打印复制链接主题：版主帮忙看看，代码不对!!!xiexie

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/8/7 16:54:00 [显示全部帖子]

以下是引用杨浩在2009-8-7 16:20:00的发言：

当从调资基础数据读入以后，弹开职务变动人员录入窗口后，光标并未自动定位到读入的那行！！！谢谢

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

…………

    MessageBox.Show("你录入的职务变动人员,其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")
    Tables("职务变动基础信息").Position = Tables("职务变动基础信息").Rows.Count - 1
    Forms("职务变动人员基础信息录入").Open()
    'If Vbl IsNot Nothing Then
        'Dim wz As long = Tables("职务变动基础信息").FindRow(dr)
        'If wz >= 0 Then
        'End If
    'End If
……

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

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

错误所在，1、没有定位焦点的代码。
2、dr值是没填充前的，而此段的数据是刚从其它表填充过来的，如果还沿用以前的值，不错才怪。
正确应该是：

    MessageBox.Show("你录入的职务变动人员,其基础信息已从调资基础数据表读入到职务变动基础信息表!!!", "提示")
    Forms("职务变动人员基础信息录入").Open()
    dr = DataTables("职务变动基础信息").Find("身份证号= '" & vbl & "'")
    If Vbl IsNot Nothing Then
        Dim wz As long = Tables("职务变动基础信息").FindRow(dr)
        If wz >= 0 Then
            Tables("职务变动基础信息").Position = wz
        End If
    End If

[此贴子已经被作者于2009-8-7 17:49:00编辑过]

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

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

代码中为何要用那么多的重复判断呀，既然已经明确val和vbl值不是空了，后面还来了这么多的
if Val > ""
if Vbl > ""
If Vbl IsNot Nothing Then
好象没必要吧？

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

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