wxjxiaoxiao 发表于 2008-5-31 20:04

ＶＦＰ添加　删除代码按钮求助！！！帮我看看哪里错了．．．．

*!*        IF thisform.text*.value==""
*!*            = MESSAGEBOX('不能录入记录！',16,'职工信息数据录入')
*!*            RETURN
*!*         ENDIF
USE 职工表 IN 0 ALIAS 职工表

SELECT 职工表
LOCATE all for alltrim(职工号)=alltrim(Thisform.Text职工号.value) and alltrim(部门代码)=allt(Thisform.TEXT部门代码.value)
If found()
=messagebox("数据库中已有该职工号,现在仍保存这条信息,但请你打开修改表单仔细检查,删除重复的一条!",0," ")
endif

SELECT 部门配置表
LOCATE all for alltrim(部门代码)=allt(Thisform.TEXT部门代码.value)
If found()
=messagebox("部门代码不配置",0," ")
Endif

append blank
replace 职工号 WITH ALLTRIM(THISFORM.TEXT职工号.VALUE), 姓名 WITH ALLTRIM(THISFORM.TEXT姓名.VALUE),部门代码 WITH ALLTRIM(THISFORM.TEXT部门代码.VALUE),性别 WITH ALLTRIM(THISFORM.TEXT性别.VALUE),出生年月 WITH ALLTRIM(THISFORM.TEXT出生年月.VALUE),;
民族 WITH ALLTRIM(THISFORM.TEXT民族.VALUE),籍贯 WITH ALLTRIM(THISFORM.TEXT籍贯.VALUE),户口 WITH ALLTRIM(THISFORM.text户口.VALUE)

SELECT 工资表
append blank
replace 职工号 WITH ALLTRIM(THISFORM.TEXT职工号.VALUE), 姓名 WITH ALLTRIM(THISFORM.TEXT姓名.VALUE),部门代码 WITH ALLTRIM(THISFORM.TEXT部门代码.VALUE)这个是一个表单的添加按钮的代码，有错误，可是我不知道错哪了，还有这代码也不是完吧．．．

啸凡 发表于 2008-6-1 11:37

运行出现错误时，选择挂起，看看是哪条命令出错，再结合您的表进行分析。（因为大家不知道您的表结构以及字段属性，只有你自己才知道）
另外，建议您的职工号、部门号等由系统生成，不要手工输入。

palycatawei 发表于 2008-6-2 08:07

代码书写过于复杂，而且不符合逻辑

页: [1]

编程论坛