Foxtable(狐表)用户栏目专家坐堂 → 这段语句为何不能正确执行?


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

主题:这段语句为何不能正确执行?

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


加好友 发短信
等级:婴狐 帖子:82 积分:597 威望:0 精华:0 注册:2013/5/19 10:01:00
这段语句为何不能正确执行?  发帖心情 Post By:2013/5/21 11:04:00 [只看该作者]

If not Tables("机构信息表.员工信息表").Current("员工状态")  Like ("'*正常*'") Then
    MessageBox.Show("改变员工状态请在备注中说明改变原因","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("机构信息表.员工信息表").Current("备注")=  Tables("机构信息表.员工信息表").Current("备注")&chr(10)&"原因说明:"
    Forms("员工备注").Open()
    Tables("机构信息表.员工信息表").current.Locked=True
    Tables("机构信息表.员工信息表").Current("机构码") = "0000"
Else
    MessageBox.Show("状态正常的员工不允许删除,请核查!","注意",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If

当点击正常时,程序流程依旧执行then下的语句,这是何故?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/21 11:06:00 [只看该作者]

If not Tables("机构信息表.员工信息表").Current("员工状态")  Like "*正常*" Then

 回到顶部